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INTRODUCTION 


When I first wrote "Introduction to 2068 Machine Code" it was an 
effert to provide a teaching manual for my SMUG students in 
Beginning Machine Code class. Ав with every "Introduction", many 
topics are beyond the grasp of the beginning student of assembly 
language and had to be skipped with the proviso that they would 
be covered in a follow on book. 


This is the first part of that follow on book and covers 
primarily advanced screen techniques. I have tried to continue 
in the vein of the first book in giving routines with enough 
explainations so that even the most novice of machine code 
programers can, with effort, grasp the concepts and adopt the 
programs for their own use. I have sprinkled demonstrations 
liberally throughout the book. 


Unfortunately, it takes a lot of time and energy to write all 
the programs, debug them, write demonstration programs that show 
how they work and then write it all up in a manner that is 
understandable by the average m/c programmer. Ey the time I was 
half way through the discussion of just the graphics I realized 
that I would not be able to cover all the subjects that I wanted 


to cover in less then 400 pages and that it would take me 
another year to finish it. Rather than hold up the first half of 
the book for yet another year while writing the second half, I 


have decided to publish the first half. Hence Volume 1. Such is 
the fate of those of us who have ather full time jobs. 

Volume 2 will cover the topics of music and sound in depth and 
go into the double precision floating point calculator also 
promised in the "Introduction". 


The biggest headache of assembly programers is debugging 
programs. Hours can be spent getting them to just run, much less 
to run correctly. For those of you who wish to bypass this agony 
of imperfect assembly, I am making available copies of the final 
version of all the main programs and demos discussed in this 
book either on Aerco or Olliger Disk or tape for $9.95 + %1.50 
S&H (WI residents kindly add 5% sales tax). Send your requests 
to: 


SMUG, Box 101, Butler, WI 23007. 


Indicate which media you prefer. 


Раде 
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CHAFTER 1 COMPILERS AND ASSEMBLERS 


TO COMPILE OR NOT TO COMPILE 


Why do I start a book on machine code with a subject like this? 
It’s very simple. I believe in doing things the easiest way 
Possible and for some of my readers compiling their basic 
Program into a faster running compiled Program may be the 
easiest solution to their slow running program. Don’t bet on it 
being shorter than the basic program. For most programs lack of 
memory is not a problem. If compilation fits your needs it’s 
much easier and faster than writing and debugging code. 
Unfortunately most of us are going to find that we still need to 
learn code so that we can make the 2068 do things that it can’t 
do with even its powerful basic. 


First, what is compiling? If you owned or ran а mini ог main 
frame computer you already know the answer. Most non-PC machines 
compile programs from some language or another into а machine- 
running type code. Set routines for the commands of the language 
are compiled into machine code routines which are then loaded 
into the machine and run rather than the language program. In 
this sense of the word, the 2068 is an interpretive machine in 
that it interprets each basic statement as the program runs. 
Well, not quite. The use of tokens and slugs in the use of 
numbers and the pretesting of syntax is а partial use of 
compilation technique. 


From this you can see that the 2068 already has some advantage 
in running speed over the completely interpretive computers like 
the IBM PC Basic programs. Using the 280 CPU also speeds things 
up over the slower 6500 series CPU's and the 8080 CPU’s. The two 
main reasons to compile are to speed things up and to save space 
but don't bet on saving much Space. 


ТІМАСНІМЕ--А 2068 Compiler. 


(Timachine is the work of NovelSoft, 106 7th St., Toronto, 
Ontario, Canada MEV 3B4. Copyright 1986 by Camron Hayes.) 


In case you haven't heard, the Spectrum compiler has been 
converted to work on the 2068. It generally does speed up 
running times of programs and if the Program is long, it saves 
space as well. And it even can do floating point numbers. This 
makes it a good compiler. Some compilers I’ve seen are so 
limited they aren't worth using. This one is. It can handle all 
the Basic commands except some obvious system commands like 
CLEAR, CONTINUE, ERASE, FORMAT, LIST, LLIST, MERGE, MOVE, NEW, 
RESET, RUN, SAVE, FREE, ONERR and VERIFY. A compiled program 
requires a RANDOMIZE USR # statement and in that sense is just 
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like any other т/с program. Thus, it needs a small basic program 
to go along with it that can load the code and run the program 
and thus handle all these commands just like a true machine code 
program. Most of these comands aren't usually handled in m/c 
programs either. Since it is a Spectrum program converted to the 
2068, there is no support of ONERR and FREE as the Spectrum does 
not have these commands. FREE we can all live without in a 
compiled program as the only time it is of use is to ask how 
much memory is left as you are writing a program. ONERR, on the 
other hand, could be very useful. Unfortunately, most of the 
time I have seen it used to cover program errors rather than a 
more useful purpose. STICK and SOUND ARE supported by the 2068 
compiler even though they are not Spectrum commands. 


There are a few other limitations to Timachine as well: 

1. No calculated 56507075,  GOSUB's or RESTORE’s. Must be 
exact line numbers. 

2. Some restrictions on data lines and FN. 

5. No calculated DIM statments and not more than 2 
dimensions. 

4. Strings are all set to 255 characters unless a previous 
LEN directive is given shortening or lengthening them. 

9. The BREAK key WILL work as compiled code is running. 


The only real limit is the need for REAL DIM (no variables in 
DIM statements) and GOTO or GOSUBS (no equivalent of ON GOTO ог 
ОМ GOSUB). The program is loaded first and occupies from 26688 
to 58145. Your Basic loads above that and there must be room for 
compiling the code above that so the limit is a Basic program of 
about 27k maximum length. Your program has to be error free as 
you can't use ONERR to trap errors and continue the program. 


This is not a lot of limitations. Let's admit it, many programs 
can fit that mold. If your basic program fits, go ahead, buy the 
compiler and compile your programs and forget about reading this 
book and learning m/c. 


Now for some things that NO compiler can do no matter how good. 
There will be a day when you want your computer to do something 
that it can't do from basic or wasn't designed to do. I hit that 
limit very rapidly in my computer program writing when I wanted 
my screen to scroll left, right and down as well as up. Some 
people like their computers to speak and play fine music and 
soon discover that their basic doesn't cut 1+. Music, as the 
2068 Basic uses it is very heavy in numbers and really chews up 
memory rapidly. Others like to draw fancy pictures of art; 
although most first attempts at art tend to be quite 
pornographic, real attempts soon hit the limits of the 2068 as 
well. AND finally, the real computer games person finds that 
even a compiled Вавіс program doesn't run fast enough for that 
phaser gun to really zap the aliens. 


How much faster are compiled programs? Claims range all the мау 
up to 160 times as fast. That may be but the average increase in 
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speed of a compiled program over its Basic counterpart is going 
to be on the order of 10 times faster not 100. 1+ you do a lot 
of floating point calculations you will be lucky to double your 
speed. Compiled programs are not as brief, precise or efficient 
as specifically designed т/с programs and thus always take 
longer to run. In other words, not quite the ultimate in speed 
end sometimes very far from the ultimate speed and if you are 
doing a lot of screen printing, quite a bit slower than m/c. 


Many people find that they just want to fix an already existing 
т/с program so that it can do a little more ог something a 
little faster or a little differently and just want to "patch" 
& program. This is even more difficult than taking the slow part 
ОҒ a Basic program and writing it in code. They have a dual 
headache on their hands because they first have to disassemble 
the code, then study it and find out how it works and what is 
doing what and finally write the modification. It takes a lot of 
time and effort. Just ask Jack Dohaney about his struggle with 
MSCRIPT although I really don't call Jack's modifications a 
patch but more in the category of а general overhaul. It 
nonetheless takes a lot of time. In-line or inside-the-m/c 
modifications can't be fixed with writing the program patch in 
Basic and then compiling around it. 


While we are on the subject, most program writers and book 
writers never make enough money on their efforts to even earn 
the minimum wage for all the time spent on their efforts. You 
have to be in it for the pleasure it brings to you helping other 
people or for the challenge it takes writing the program or the 
reputation you get for doing a good job writing a good program 
or game. Most remain poor and unsung heros. 


Using TIMACHINE requires the use of quite а few directives 
written into REM statements that tell the program the type of 
variables you are using. One must declare quite а few as 
integer, positive integer or real and make sure you don’t divide 
one integer by another to get a fraction which must be handled 
as both real numbers giving a real number answer. Reusing 
variables runs into a problem as well. Defining the lengths of 
strings can save a lot of memory as undefined strings have 255 
bytes reserved for them. А much larger area of memory ів used 
for program variables than in the normal type of machine code 
routine. 


Ав with т/с, you don't have to compile a whole program but сап 
choose where you want to start and where to end the compilation. 
You can do the program in sections 1+ you like. Unfortunately, 
each compilation again saves the same run routines each and 
every time and as such generally is much longer than the Basic. 
Each compilation also would have its own section of variables 
and as such there would be no transfer of variables for one 
compilation to another. However, the compilation does put the 
variables into the Basic variable table so they become available 
for further Basic manipulations. For diagnostic purposes you can 
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even request a listing of the run routines used. Sorry, but no 
onestep (See Hot Z below for a definition) through the program 
allowed. However, since the BREAK key works, any compilation run 
can be interrupted at any time. 


All this sounds like a lot of work. It may take several hours to 
convert a program for compilation but that is short compared to 
the amount of time you would spend doing it in your own code. 


But if compilation won't work for you for whatever reason, read 
on. Much of what follows is going to be things that are 
unsupported from the present 2068 Basic and so require m/c. 


ASSEMBLERS 


Before we discuss assemblers, let's give a few definitions that 
most oldtimers in computering grew up with and are still used 
from time to time. 


Source соде: The labels, mnemonics and comments of а program 
which an assembler uses to create the Operating code which is 
called the object code. 


Object code: The assembled set of numbers poked into ram. But 
NOT necessarily at the correct address. In other words it is 
made to run at one address although presently stored at a 
different address. This is a necessity with some assemblers as 
they are using the space where you want to put your code. 


Running code: The Object code in its right address space. 


Therefore, the sequence generally needed is to type in the 
source code, assemble the source code into object code and then 
transfer the object code to the right address for running. 


Іп the Introduction to Machine Code I recommended that you 
assemble your code by hand and encode it. Then, using a basic 
loader, enter it into memory and run it. However, this is the 
big leagues now and your code is getting longer so the use of an 
assembler saves a lot of time and prevents a lot of stupid 
encoding errors. There are several assemblers available but I 
will only discuss two of them: Hot Z and Zeus. Which one you use 
depends upon the way you like your final code to look. The 
difference between the way these two operate is about the 
difference in driving a Corvette and an Escort. 


The corvette is Hot Z. It contains everything you would want-- 
as they say, power everything. But the first time behind the 
wheel, pardon me, keyboard, can be a little nerve-wracking. I 
strongly recommend that you just load Hot Z and get  aquainted 
with some of its commands. It has three separate functions: 
assembly, disassembly and running. The running function can be 
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broken down into running all the code, just a section of code or 
single-stepping it an instruction line at a time with а +411 
display of all the values of the flags and the registers if you 
like. It comes in 3 versions: 2.9, 1.8 and 1.9, all of which are 
loaded in at 22768 and are up to 24576 bytes long. Version 1.8 
only supports the 2040 printer. A printer is a must with Hot  Z. 
The low loading of Hot Z allows the entry of code into high 
memory where it is usually found so that it can be worked on or 
run--unless you are working with a Spectrum т/с program which 
has a habit of being loaded at 52768 to accommodate a 48k ram. 
Hot Z can even accommodate this abnormality by telling it to 
reassemble the code to run at the addresses you have loaded it 
into, і.е., reassemble an object code to a running code. 


The Escort is Zeus. It's reliable transportation with few frills 
and easy to learn how to operate. 1+ you have never used an 
assembler start on Zeus. It is easy to learn аз it has a top row 
of entry manipulations that can easily be held on one side of a 
3x5 card you can place on the top part of the 2068 as you are 
using the program. It has advantages and disadvantages. If you 
are like me, I have a lot of comments to help me remember what 
is where and what is supposed to be happening. These are all 
saved in the source code which can be saved to tape or disk. 
Reloading in Zeus makes changes very easy. Telling Zeus, which 
can be modified to work with the Aerco print driver program, 
gets your program to paper--at least the labels, mnemonics and 
comments. You then have to add the addresses and codes Бу hand. 
Zeus occupies space from 57544 to nearly the top of ram (without 
the monitor and disassembler) which means that most of the time 
we will only be assembling an object program--displaced to some 
other address (unless our program is very short and fits іп 
about 700 bytes and you want it to run in the very top of ram.) 


Zeus uses arbitrary line numbers for its source code and allows 
for renumbering them so insertion or deletion of code is easy. 
А very fast 2 pass assembler gives code in seconds. А monitor 
mode allows you to inspect the object code (їп hex) and even 
change it on the spot. А full label table is generated at the 
time of assembly giving the address of each label which makes it 
very easy to copy down addresses of the starts of routines. 


Hot Z, on the other hand, uses a one-line-at-a-time assembly. It 
assembles each line as you finish entering it. Nice for backward 
jumps and calls but not so nice for forward ones especially if 
you don't know how much forward. There is no Saving of a source 
code. What you see on the screen is the disassembly of already 
assembled code. Inserting extra code and deleting it is a bit 
more complex. The manual is written in the symbols of the Timex 
tokens rather than in first letter commands as in Zeus. 


Getting used to what some of these mean is the problem with Hot 
Z. For example, in Zeus, а number preceded Бу а * (symbol 
shifted 5, which appears on the screen as 4) means the number is 
in hex while nonprefixed numbers аге in decimal. In Hot 7, 
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which prefers hex, its the other way around, prefix with OR 
(symbol shifted U) for a decimal address. In other words, Zeus 
is a lot more user friendly. 


There are a few extra commands that most assemblers use. They 
eret: 


ORG ##### Tells the assembler at what address you want the 
running code to start. Hot Z has no ORG command as you 
have to be at the right insertion address when you type in 
assembly code. 


DISF ##### Displace the storage of the code by this amount from 
the ORG address and store it there as you assemble it. 
Displacements cannot be negative. Therefore, if ORG is set 
at 60000, a displacement of 40535 will store the code at 
60000 + 40535 (less 65555) or at 25000. 


Label EQU ##### Predefine а label which is located at the 
address given. Generally used to specify data storage 
areas. Can also be a pure number. 


DEFB ###,### Tells the assembler that what follows is entered 
directly into RAM as numbers. Several can be used on the 
same line separated by commas. The numbers may be a 
precoded machine code as well as data. For Hot 7 you have 
to move the cursor to the left position and enter in Hex. 


DEFW #####, #4484 As with DEFB but two bytes long each, i.e., 
word long. 


DEFS #### Define an open space of ### bytes in length. А way to 
reserve space for a future routine or data. 


DEFM/string/ The string is loaded as ASCII a symbol at а time. 
A great help in entering print data strings. May have 
spaces inside the string. 


ENT Start assembling with the next instruction. You don’t have 
to assemble all your source code each time. 


END #### Hot Z requires at least a temporary ending address 


which can be changed as desired before entering code. Zeus 
just compiles to the end of the assembly code and requires 
no end. 


Comments can be added to the end of the mnemonic by entering a 
colon or semicolon and then adding the comment. Comments can be 
on any line by itself by just starting with the colon or 
semicolon (Check your manual to see which). No comments for Hot 
z. 


Check your assembler for the proper RST number; it may require 
а hex or a numeric. 
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Most assemblers also have a limited length for labels. Оп many 
this is 6 symbols with the first one having to be alphabetic. 
Zeus allows up to 14 with a special directive. Also, аз should 
be obvious, you cannot use any of the assembly codes as a label, 
i.e., LD will not work, but LDBC will--without a space between 
LD and BC. 


The use of the $ symbol is quite universal in assemblers, e.g., 


DJNZ $ is equivalent to loop DJNZ loop 
and, 

DJNZ $*2 is equivalent to DJNZ 2, 
while, | 

DJNZ $-2 is equivalent to DJNZ 254. 


Note also that the DJNZ code does NOT use a comma between it and 
the following label whereas all other jump relatives do, і.е., 
JR NZ, loop. 


Generally assemblers come with error codes for assembly. Hot 7 
Gives them obviously for the last line entered as it immediately 
assembles it, Zeus gives the code and lists the line it occurred 
in. Both are easy to correct. 


Using floating point: Two special codes in Hot Z allow you to 
assemble or disassemble code for the RST 48 routine and its 
special characteristics. Generally in disassembly you have to 
tell the program to shift to Floating Point Disassembly as the 
code doesn’t make sense doing a regular disassembly. Try 
disassembling the floating point routines starting at ROM 
locations 15025 to 15461. With Zeus you have to use the DEFB and 
precode your floating point routine. You see, Escorts don't have 
power steering. 


Also, you sometimes get into data tables. If it’s ASCII, Hot Z 
has another directive to let you disassemble using that to try 
to make sense out of the code. In fact, try the ASCII 
disassembly first before trying the floating point disassembly 
as it is more likely to be data. Remember in disassembly, you 
ere missing all the labels and comments that come with a full 
source code printout. Try ROM location 152 for а demonstration 
of ASCII disassembly as you are in the token spell table. 


There is one situation which defies correct disassembly and that 
is a pixel table for printing either the ROM characters or UDC 
chararacters. ROM addresses 15616 to 16287 are a good example 
for demonstration. The same thing applies to jump tables found 
at various ROM addresses. 


Hot Z will also allow the entry of break points into routines 
which allows one to run only particular sections of code from 
one breakpoint to another. Of course registers must be set up 
for partial running so it doesn’t crash which also can be done. 
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Zeus has no debugging techniques. With HOT Z you can use the 
break points as discussed above or the one-stepper with a full 
display of all registers, including the primes, and all flags. 
You are even allowed to skip over instructions in case you are 
following a certain set of conditions or if those instructions 
cause a crash because they lead to a routine that isn't written 
as yet. It is time-consuming using it, but it gives you 
everything you could desire. 


Name files can be saved in either version although it is not 
really necessary in Zeus as a reassembly gives you a new table 
in seconds. A large name file of the routines in ROM and the 
system variables is included with Hot Z if you wish to take up 
memory entering it. 


Both also have a find function that allows one to look for each 
and every entry of a label or series of instructions for 
location purposes. You then can correct апу misspellings or 
otherwise change the code, label, or comments (Zeus). 


Hot Z also has a FILC command to fill empty chunks with any 
character you desire. Zeus has no such command and leaves the 
spaces with whatever was in them. 


Hot Z also can relocate code. With Zeus you need to change the 
directive DISP and reassemble at the new displacement address. 


Both assemblers also give а discription of several routines they 
use internally which you аге also allowed to use in your 
routines if you like. Hot Z lists the calls for all floating 
point routines as well. 


With tape or disk drives SAVES of code need the starting save 
address and length included with the name of the code. Reloading 
from tape or disk to the running address can be easily done by 
entering the correct running address and the length with the 
name of the program thus easily changing an object code to a 
running code in your Basic program. 


Which assembler you use is Of course your own personal decision 
be it a Corvette or an Escort. But do get familiar with one and 
stick to it. You can even mix if you don't get confused with the 
differences such as entering mnemonics with Zeus, saving the 
code and then debugging with Hot Z’s one-stepper. 


The unfortunate part of all assemblers and disassemblers is that 
they write out the code in Hex. I have yet to find one that 
doesn't. This isn't of concern because we can directly convert 
ап object code to running code without worrying about the hex. 
It does, however, give one a headache of the excedrin number 
type in debugging especially when even the addresses are in hex 
which is standard technique as well. Be very careful converting 
hex addresses to decimal for your RAND USR calls and your saves 
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and all your setup pokes. This is always the first thing I check 
when а m/c program crashes. А small hand-held calculator does 
wonders and if it's solar powered you don't even have to ever 
worry about batteries or line cords. They are quite reasonable. 


We always save two copies of everything on two separate tapes or 
disks so if one copy is bad we have another, don't we? And every 
once in а while we do our housekeeping and get rid of all the 
programs with errors but not before we have another program that 
replaces it with no errors or at least fewer errors. If you are 
like me with code, it starts simple with the main routine which 
I debug and save. Then I add what I call the bells and 
whistles--all the extra stuff. But, I don't mess with that main 
routine until each bell and whistle works and works in all its 
variations. 
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CHAPTER 2 SOME PRELIMINARIES 


There are a few topics and loose ends from the Introduction to 
2068 Machine Code that I would like to emphasize and clear up. 


Intel Mnemonics 


Since the Zilog 280 CPU is an improvement on the Intel 8080, the 
Intel mnemonics came first and copy the format started with the 
6500 series of chips. Since they are in existence, you тау 
sometimes encounter them (as anyone with an Аегсо disc drive 
system already knows). However, with a little thought these 
mnemonics can be read directly without having to translate back 
to Zilog type. Accomplishing this one also can then read most 
6500 assembly as well. 


Since the 8080 has no IX and IY registers and doesn't use the ED 
and CB extended codes the Intel mnemonics had to be extended to 
cover these extra instructions for the Z80 chip. Some copy the 
280 mnemonics, others don't. The result is a very inconsistant 
set, half Intel, half Zilog. 


GENERAL SYMBOLS USED 


We will use r for any single register 
rr for a double register 
п for В bit values 
пп for 16 bit values 
ii for Index registers IX and IY 
d for displacements 
b for bit number 
с condition of a flag 
$ single register or (HL) (M for INTEL) 
PC for program counter 
SF for stack pointer 
I interrupt register 
R refresh register 


The Intel set has these peculiarities: 
1. The first letter of a register pair only is used. 
Thus B really = BC, D=DE, H=HL 
z will be used for this designation 
2. M is used for (HL) which to them means memory. 


LOAD 


Whereas Zilog gets by with one LD instruction, Intel needs 22 
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different kinds. In the "Introduction to 2068 Machine Code" I 
told you that we don't differentiate between the various modes 
of loading а register or memory. Intel uses MOV to indicate 
loading one register with another and MVI, move immediate, to 
load a number directly into a register; СТА to store а register 
number into memory; and LD, load direct, to get one from memory. 
Sometimes the L and D are separated by the registers. 


INTEL ZILOG 

MOV r, r LD r, r 

MOV r, M LD r, (HL) 
MOV ғ, 9(11) LD r, (ii+d) 
MOV (HL), r LD (HL), r 
MOV d(ii),r LD (ii+d), r 
MVI r, n LD r, n 

MVI M, n LD (HL), n 
MVI d(ii), n LD (ii+d), n 
LDA nn LD A, (nn) 
STA nn LD (пп), А 
LDAX z LD А, (rr) 
STAX z LD (rr), А 
LDAI LD A, I 
(рак LD ñ, К 
STAI LD I, ñ 
STAR LD R, ñ 

LXI rr, nn LD rr, nn 
LXI ii, пп LD ii, nn 
LBCD nn LD BC, (nn) 
LDED nn LD DE, (nn) 
LHLD nn LD HL, (mnn) 
LIXD nn LD IX, (nn) 
LIYD nn LD IY, (nn) 
LSPD nn LD SP, (пп) 
SBCD nn LD (пп), BC 
SDED nn LD (пп), DE 
SHLD nn LD (пп), HL 
SIXD nn LD (nn), IX 
SIYD nn LD (пп), IY 
SSPD nn LD (nn), SP 
SPHL LD SF, HL 
SPIX LD SP, IX 
SPIY LD SF, IY 
PUSH/POP 


Except for the single letter notation indicating a double 
register, PUSH and POP are the same. 


@.g., PUSH В = PUSH BC 
EXCHANGE 


With a few exceptions, easily recognizable. 


А 
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INTEL ZILOG 
XCHG EX DE, HL 
EXAF ЕХ АҒ, АҒ” 
ЕХХ ЕХХ 

XTHL EX (SF), HL 
XTIX EX (SP), IX 
XTIY EX (SF), IY 


BLOCK MOVES AND COMPARES 


LDI, LDIR, LDD, LDDR, INI, INIR, IND, INDR, OUTI, and OUTD are 
identical. Only changes are: 


INTEL ZILOG 
OUTIR OTIR 
OUTDR OTDR 
CCI CFI 

CCIR CPIR 
CCD CPD 

CCDR СРОК 


JUMPS, RST, CALLS and RET 


Easy if you keep in mind that the condition is put in the main 
name. Intel uses Overflow (0) and no overflow (NO) as well. Even 
the equivalents of JF (HL) are easy if you remember that you 
literally load the SP with HL. Also please keep in mind that а 
lower case c stands for "condition". 


INTEL ZILOG 

JMP пп JF nn 

Jc nn JP c, nn 

JO nn ӘР PO, nn 
JNO nn JP PE, nn 
JMFR d JR d 

JRc d JR c, d 
JRO d JR FO, d 
JRNO d JR FE, d 
DJNZ d DJNZ d 

PCHL JP (HL) 
РСІХ JF (IX) 
ЕСІҮ JP (IY) 
CALL nn CALL nn 

Cc nn CALL c, nn 
CO nn CALL PO, nn 
CNO nn CALL PE, nn 
RET RET 

Rc RET c 

RO RET FO 
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RETI RETI 
RETN RETN 
RST n RST n 


ARITHMETIC AND LOGIC 


Again we have an immediate mode which makes the Z letter 
mnemonic look different. Increment and decrement are abbreviated 
differently. D is prefixed to some double register arithmetic 
operations. 


INTEL ZILOG 

ADD s ADD А, s 
ADD M ADD А, (HL) 
ADD d(ii) ADD А, (ii*d) 
ADI n ADD ^, n 
ADC аз for add ADC 

ACI п ADC A, n 
SUB s SUB А, s 
SUI n SUB А, n 
SBB z SBC А, a 
SBI n SBC А, n 
АМА % AND А, s 
ANI n AND А, n 
ORA s OR A, в 
ORI n OR А, n 
XRA s XOR А, s 
XRI n ХОК А, n 
СМР s СР А, $ 
СР! п СР А, n 
ТМА г INC r 

INR M INC (HL) 
INR d(ii) INC (ii*d) 
DER r DEC r 

DCR M DEC (HL) 
DCR d(ii) DEC (ii+d) 
DAD rr ADD HL, rr 
DADC rr ADC HL, rr 
DSBC rr SBC HL, rr 
DADX z ADD IX, rr 
DADY 2 ADD IY, rr 
INX rr INC rr 

INX ii INC ii 

DCX rr DEC rr 

DCX ii DEC ii 


ROTATE AND SHIFT 


Rotate/shift L/R circular and logic are the same but arithmetic 
is rotate/shift arithmetic L/R. 


INTEL ZILOG 


Chapter 2 


IN AND QUT 
INTEL 


IN n 

INP г 
OUT n 
OUTF r 
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RLCA 
RLA 
RRCA 
RRA 
RLC г 
RLC 
RLC 
RL s 
RRC s 
RR s 
SLA s 
SRA 
SRL s 
RLD 
RRD 
DAA 


и 


711.06 


IN А, 
ІМ г, 
QUT А, 
OUT t, 


GENERAL РОКРОЅЕ and CONTROL 


Some are the same, 


INTEL 


BIT MANIPULATION 


Except for the use of M for 
identical with BIT, SET and 


6500 MNEMONICS 


(HL) 
(ii +d) 


(n) 

(C) 
(n) 
(C) 


others quite different. 


21.06 


(HL) 
RES. 


and d(ii) for 
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(iitd) they are 


There you have the complete set. Use these few pages as you read 


some of the rp/m cp/m assembly and except for a few ringers 


you 


will learn them quite rapidly in about an hour or two. Then, if 
you want, try reading assembly for the Apple, Commadore or Atari 
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and you will be surprised how much you can already understand. 
Just remember that these machines do not have all the 
instructions available to the Z80 and as such have to do things 
in а round about way with resulting longer routines. 


WHICH REGISTERS TO USE? 


One of the big questions beginning students of m/c elways ask is 
"How do you know what variable to put into what registers?" The 
answer to this question is, of course, "It depends on what you 
have to do with that variable." Even students who already know 
code can stand a review of this subject. 


Even more so than in Basic, because you аге limited in the 
number of things that you can have active at any one time as 
each must be assigned a register, knowing what has to come first 
is а must. Therefore, FLOW DIAGRAMMING YOUR PROGRAM IS А MUST. 


One also has to consider the addition of another set of var- 
iables called memory pointers which we don't have to keep track 
of in Basic. For example, a very simple "print a word to the 
screen" routine requires several pointers: 1. А pointer to the 
memory location where you have stored the spelling of the word 
which is pointing to the present letter you are printing, 2. 
Calculating the code of this character into an address pointing 
to the В pixel bytes needed for this character located in the 
character pixel table, and 3. А pointer to the screen position 
you want to print to. With only 3 double registers, we already 
don't have room for a counter which is also a necessity. We 
can't use the А register for that as it will be necessary to 
transfer data from (DE) to (HL). Something has to be pushed to 
the stack to save it and provide room for more calculations. If 
it ever was true, the motto "PLAN AHEAD" is a must іп m/c. 


Now, don't be frustrated. Every beginner finds himself writing 
or calculating himself into a corner where he finds he needs 
something from the stack which he has already "buried". The 
beginner will also find his code much more lengthy and very un- 
elegant. Don't let that bother you either. The proof of the 
value of code is that it runs, not how brief or elegant it is. 


However, there are several considerations in picking a 
particular register or register pair that will help one avoid 
some of these pitfalls. I have already pointed out that all the 
codes that you may want are not available for all registers. It 
was pointed out also that the HL pair is the only double 
register you can add to or subtract from. This must be kept in 
mind if you have to make calculations on numbers bigger than 
295. You will also find that HL is also the most versatile 
double register pair to get things to and from memory and even 
change memory when used as a pointer to memory. For example, 
there are only instructions like LD B, (HL) or AND А, (НЫ). OR 
А, (HL) and ХОК А, (HL) along with SET BIT, (HL) or RESET BIT, (HL) 


Мл 
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and of course the test, BIT (HL) and of course, INC (HL) and DEC 
(HL). These last several allow you to change memory without 
first loading the value to А, making the changes and then 
loading it back. Therefore, save HL for your most important 
pointer, the one you have to manipulate the most. And the one 
which can point at memory locations which require simple changes 
or tests. 


DE is almost as versitle as HL because of the instruction EX DE, 
HL which allows you to flip-flop HL and DE into the HL bracket 
for the fancy manipulations allowable only in HL. Therefore, its 
the 2nd most important pointer location and the one where only 
occassional manupulations are necessary. 


BC is the least valuable as a pointer but because of the 
instruction, DJNZ, B is the prime counter register for numbers 
less than 256. This makes the C register the least valuable 
unless you are inputting and outputting to ports when all the 
OUT (C) and IN (C) instructions save time and space. C is 
sometimes used to temporarilly store values for comparisons to 
А and other caluclations with А. When countdowns of bigger 
values than 255, the BC register pair is generally used. 


One more thing about HL. There is a little known instruction 
which answers the question all of us have had from time to time, 
"How can I save HL to the stack and then POP off the now buried 
other value of HL I need." It is EX (SF), HL which means 
exchange the last value pushed to the stack with HL. This allows 
one to have two values of HL pointing at two different things as 
long as you only need to use one at a time. One is on the stack 
while you use the other. Then, with EX (SP), HL you save the one 
you are done with and now have the other ready to use. 


Now, for the single registers. Your most important register is 
А. All math and logic including СР, NEG and а lot of special 
things can only occur in А. It is also the only register than 
can't be paired into a double register. It must be kept free оғ 
long term pointer values and other things because it also іс 
used as the input register for the double egisters? It is not 
recommended that the beginner use them. First of all, if you are 
going to and from Basic make sure you save and retrieve the HL’ 
register pair on the way in and out of your routine. Secondly, 
they can only be used to store a value so you might as well use 
the stack. To get at them you need to use EXX which not only 
exchanges BC with BC' but also DE with DE' and HL with HL'. Only 
EX АҒ,АҒ” works by itself. The prime registers are great if you 
need a second full set of registers or another completely 
seperate set of calculations. You can't mix HL' and DE or things 
like that. Most calculations a beginner may be doing won't 
require their use. 


IX and IY are always double registers and although very useful 
to the advanced student it must be remembered that IY must Бе 
reset before coming back to basic оғ you crash. The special 
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displacement indexing of the IX and IY makes tem ideal for 
looking at stored table values which is hardly а subject for 
beginning students. 


So much for special registers. None of this is hard апа fast 
LAW. You can use əny register, except А, for any purpose you 
desire. Even BC can be used as a memory pointer because of the 
instructions LD à, (BC) and LD (BC), А. 


Standard screen routines: 


How are you doing on your book of standard routines you were to 
start? Every good machine programer has such a book so he 
doesn't have to continuously rewrite these standard routines. А 
good programmer also completely documenta every program he 
writes in their final form. Because we all make а lot of 
mistakes writing code and have to constantly revise them we have 
а lot of copies lying around with earlier attempts that we 
really should get rid of. (We are not all geniuses like Mozart 
who is said to have written his music once in its final form as 
it never required revision.) It takes extra time to do it but if 
for some reason you have to ever come back and revise the 
Program you know where you are. If you are like me you have 3 or 
^ projects going at the same time and jump back and forth 
between them as the inspiration moves you so its even more 
important to know where you left off. 


What routines should you have in your standard book? It depends 
upon your interests, of course, but some screen printing 
routines always come in handy. You should have at least: 


CLEAR THE SCREEN: 


ENTRY WITH А = ATTRIBUTE 


210040 CLS LD HL, #4000 
010018 LD BC, #1800 

79 LD (HL),L: L = O 
54 LD D, H 

1Е01 LD Е, 1 

EDBO LDIR 

77 LD (HL), A 
OLFFO2 LD BC, #02ЕР 
EDBO LDIR 

C9 RET 


LOCATE ADDRESS IN DFILE 


ENTRY: B = LINE, C = COLUMN 
EXIT: HL = ADDRESS IN DFILE 


78 DF-Loc LD A, B 
ЕФЕВ AND 248: SAVE TOP 4 BITS ONLY 
C640 ADD А, 64 


sa) 


AND FIND 


ENTRY: 
EXIT: 


78 
CB2F 
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ATTR: 


LD H, A 
LD А, B 
AND 7 
RRCA 
RRCA 
RRCA 
ADD A, C 
LDL, A 
RET 


B= LINE, C= COLUMN 
HL = ADDR IN ATTR FILE 


ATTLOC 


LD A, B 
SRA A 

SRA A 

SRA A 

ADD А, 88 
LD H, A 
LD A, B 
AND 7 
RRCA 

RRCA 

RRCA 

ADD А, C 
LD L, A 
RET 


FIND ATTR ADDR FROM DFILE ADDR 


ENTRY: HL = DFILE ADDR 
EXIT: DE= ATTR ADDR 


And the opposite, FIND DFILE ADDR FROM ATTR ADDR 


ENTRY: 


DF-ATT 


HL = ATTR ADDR 


EXIT: DE= DFILE ADDR 


LD A,H 
RRCA 
RRCA 
RRCA 
AND 5 
OR 88 
LD D, A 
LD Е, L 
RET 


LD A, H 
AND 3 
RLCA 
RLCA 
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07 RLCA 
F640 OR 64 
37 LD D, А 
5р LD E, L 
c9 RET 


These are the absolute minimum. You should probably also have a 
scroll left and a scroll right routine as well. Later in the 
book we will give you the routine for scrolling the 64 column 
screen left and right. We leave it to the student to write his 
or her own scroll routines. They аге quite simple if you 
remember you have to do it a pixel line at a time and you don't 
have to do them in the screen order. 


Saving SCREENS Space 


How many screens can you save in memory? Each screen requires, 
6912 bytes and with 38657 bytes useable this makes for 3 screens 
worth with 4097 left for program. Even with only 4 screens you 
only have 11K for program. Can something be done to reduce this 
screen overhead? The answer of course depends upon what type of 
screen you are saving. IF it’s a detailed graphic art you can’t 
save much space but even a picture of the Mona Lisa has а lot of 
background of all the same type of character which сап save 
space. Generally the background pixels are either all full, as 
in inverse printing, or all blank and the routine listed below 
is based on that fact. 


The routine looks at each pixel on the screen in order. If it is 
a О or 255, а special routine is called to look at the next byte 
and if that is the same a count is accumulated until a different 
byte is found. At that point the count is placed in the byte 
following the 255 or the О in the compressed screen table. 
Therefore, each 255 or O pixel byte is followed Бу а count of 
how many consecutive bytes are the same. Only in the unlikely 
event of having a screen of alternately 255 and O would we get 
а screen save longer than 6912. Ап interesting point about the 
routine is that by using PRINT USR 65000 you get the first empty 
byte address and thus the length of your compressed screen 
save. 


I loaded it at 65000 but it calls no routines so is immediately 
relocatable to where ever you wish. 


65000 210040 COMPRESS LD HL, 16384 


65003 11ХХХХ LD DE, SCRSAVE 
65006 7E LOOF LD A, (HL) 
65007 12 LD (DE), A 
65008 FEFF CF 255 

65010 280E JR Z,FULL 
65012 ҒЕОО СР о 

65014 282D JR 2, ЕМРТУ 
65016 1% INC DE 


65017 25 INC HL 


МА 
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65018 7C LD А, Н: END OF FILE? 

65019 РЕЗВ CP 91 

65021 20EF JR NZ, LOOP 

65025 42 QUT1 LD B, D: LD FINLE СОМР CODE BYTE TO BC 
65024 4B LD C, E 

65025 C9 RET 

65026 13 FULL INC DE 

65027 SEO1 LD A, 1 

65029 ОВ FLOOP EX AF, AF’: SAVE COUNT IN АР’ 
65030 23 INC HL 

65031 7C LD A, H: CHECK FOR END OF FILE 
65052 FESB CF 91 

65034 2814 JR 2, XOUT: DONE BUT DO END ROUTINE 
65036 7E LD A, (HL): CHECK NEXT BYTE = 255 
65037 FEFF CP 255 

65059 200A JR NZ, FOUT: NOT 255 

65041 08 EX AF, AF’: BUMP COUNT 

65042 3C INC A 

65043 20ҒО JR NZ, FLOOP: LOOP IF COUNT NOT TO 256 
65045 3D DEC A: A = 255 

65046 12 LD (DE), A 

65047 15 INC DE: START COUNT OVER 
65048 12 LD (DE), A 

65049 18Е7 JR FULL 

65051 08 FQUT EX АР, АЕ, 

65052 12 LD (DE), А 

65055 15 INC DE 

65054 18CE JR LOOF: BACK TO MAIN LOOF 
65056 08 XOUT EX ñF, АЕ? 

65057 12 LD (DE), А 

63058 13 INC DE 

©5059 18DA JR QUT1: NOW EXIT 

65061 13 EMPTY INC DE 

65062 ЗЕ01 LD А, 1: START COUNT 

65064 O8 ELOOP EX AF, AF’: SAVE IN AF’ 

65065 23 INC HL 

65066 7C LD A, H: END OF DFILE? 

65067 FESB CF 91 

65069 28F1 JR 2, XOUT . 

65071 7E LD А, (HL): NEXT BYTE = O? 
65072 ҒЕОО CP O 

65074 20Е7 JR NZ, FOUT 

65076 ОВ EX AF, АР’: UPDATE COUNT 

65077 SC INC ñ 

65078 2070 JR NZ, ELOOP: CONTINUE IF NOT 256 
65080 ID DEC ñ: А = 255 

65081 12 LD (DE), A 

65082 12 INC DE 

65083 3C INC А: Azo 

65084 12 LD (DE), A 

65085 18,56 JR EMPTY 


65087 210040 LDSCREEN LD HL, 16384: DFILE 
65090 17XXXX LD DE, SCRSAVE 
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65093 1А LOOP1 LD а, (DE) 
65094 FEFF CF 255 
65096 282E JR Z, FILL 
65098 FEOO CP о 

65100 2820 JR 2, MISS 
65102 77 LD (HL), A 
65103 23 INC HL 
65104 13 RETO INC DE 
65105 7С LD A, Н: END OF SCREEN? 
65106 FESS СР 88 

65108 38EF JR C, LOOP1 
65110 14 LOOF2 LD А, (DE) 
65111 FEOO СР Ог ATTR = 0? 
65115 2809 JR Z, MISS1 
65115 77 LD A, (HL) 
65116 23 INC HL 
65117 15 БЕТІ INC DE 
85118 7C LD А, H: END OF ATTR? 
65119 FESB CP 91 

65121 38F3 JR C, LOOF2 
65123 C9 RET 

65124 13 MISSI INC DE 
65125 1A LD A, (DE) 
65126 DS PUSH DE 
65127 1600 LD D, о 
65129 5F LD E, А 
65130 19 ADD HL, DE 
65151 Di POP DE 
65132 18ЕР JR ВЕТ! 
65134 13 MISS INC DE 
65135 14 LD А, (DE) 
65136 05 PUSH DE 
65137 1600 LD DE, O 
65139 SF LD Е, A 
65140 19 ADD HL, DE 
65141 Di POP DE 
65142 18E5 JR ВЕТ! 
65144 13 FILL INC DE 
65145 1А LD A, (DE) 
65146 47 LD B, A 
65147 36FF BACK LD (HL), 255 
65149 23 INC HL 
65150 10FB DJNZ BACK 
65152 18DB JR БЕТІ 


Please note the 2nd line of each routine has an XXXX in the 
code. This means that you must poke these value with the address 
of where you want the compressed code saved or where you have it 
saved when you expand it back into the DFile. Save the code ав 
"scro.bin", 65000, 154. Those of you with disks will find it 
under that name for screen object code. 


You can make saveral variations on these programs. If you don’t 
have to save the attributes, all the 9176 can be replaced with 
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the end of the pixels with an 88. Address 65110 must be poked 
with RET (201). If you only want to save the top 2/3rds change 
the 91" to BO, if only the top 1⁄Zrd change them to 72. То 
start the save at the center third, start the routine with HL 
set to 18432 (4800 Hex). To compress only the last third of the 
screen load HL with 20480 (5000 Hex). Each one of these partial 
Saves Of course is shorter than a full screen save. 


There is one inconsistency with the LDSCREEN program in that it 
is looking for a repeat attribute at address 65112. The compress 
routine doesn't do this so leaving the repeat address at 
O--black paper and ink, an unlikely attribute, will mot crash it 
unless you use a O attribute. 


The student will observe that these routines only reduce screen 
space for consecutive 255’s and 076. Now your screen may have a 
lot of consecutive pixel bytes other then these two in which 
case you should change the routine FULL and FILL to condense 
these bytes and expand them rather than 255. I£ you have another 
byte other than O you can change the MISS and EMPTY routines as 
well to accommodate that byte. And of course you need not stop 
at just 2 bytes but may add as many as you like by expanding the 
routines. Just remember what you compress in one must be 
expanded in the 2nd. There of course is one problem with there 
routines in that they don't let you design your own screen and 
you still need your favorite screen designer for that purpose. 


The student will also realize that these routines can be 
modified for compressing not only a normal screen but also a 
high resolution graphic screen including all the attributes of 
DFILE2 by merely changing the address HL starts at. 


There of course are other ways of looking at pixels other than 
their consecutive order in the DFile which could be written into 
a routine that can be used to compress a screen. This book is to 
give you ideas to write your own routines, not an exhaustive 
all-ready to use everything book. 


If time is of the essence in your porgram, it still is faster 
loading а compressed screen already in memory than to load it 
directly full blown from a disk. How much can you save? А full 
detailed map of Europe, using literally dozens of unique 
graphics characters but never using a UDG function, covering 4 
screens with overlap can be saved in 12800 bytes total space. 
Only one precaution. You can scroll a screen once it is expanded 
back out to the DFILE but you can't copy the edge of a 
compressed screen from its compressed state to the screen as the 
number of characters changes for each line or row. What you сап 
do is fully expand a compressed screen somewhere else in memory 
and load characters from there to the screen as you scroll the 
DFILE screen. 
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А RELOCATABLE PRINT DRIVER 


How сап а program be relocatable and still have calls іп it? 
Very simply. By having the program do a once- through routine 
that ad;usts all calls to whatever starting address опе loaded 
the program to. 


But before you look at that code enter the following two 
statements in direct mode: 


POKE 64000,201 
PRINT USR 64000 


You should get on the screen 64000. The PRINT USR function 
prints the final value of the BC register pair to the screen as 
it returns from machine code. Since all we did in machine code 
нах tell it to return, this gives us an insight ag to how the 
USR function works in that BC is loaded with the argument of 
USR, namely 64000. In other words, if for some reason we want to 
use that value of BC it is already loaded and we don't have to 
reset BC. That iz the logic used in the following routine to 
relocate the code permanently. 


This print driver is for an Aerco Printer Interface and it isn't 
going to do you any good unless you happen to have that print 
driver, unless you can modify it to work with your print 
driver. 


64000 1806 ON JR INSTALL 

64002 1851 OFF JR RESTORE 

64004 3F DEFB LINE LENGTH-1 

64005 OA DEFB LINE FEED CODE 

64006 0000 DEFE: SPACES USED BY FROGRAM 

64008 21B302 INSTALL LD HL, 691: START OF OFFSET TABLE 

64011 09 ADD HL, BC: NOTE THAT AT THIS FOINT WE 


HAVE NOT LOADED BC WITH ANY SPECIFIC VALUE. HOWEVER BC = 
64000 IN THIS CASE SINCE ITS THE ARGUMENT OF USR. 


64012 SE LOOP LD E, (HL) PUT OFFSET VALUE IN DE 

64013 22 INC HL 

64014 56 LD D, (HL) 

64015 23 INC HL 

64016 7A LD А, D: IF DE=O WE ARE DONE 

64017 B3 OR E 

64018 2811 JR Z, SETCHAN 

64020 EB EX DE, HL: DE= POINTER/HL= OFFSET 

64021 09 ADD HL, ВС: HL= ADDRESS TO CHANGE 

64022 DS PUSH DE: SAVE OFFSET FOINTER 

64023 ES PUSH HL: SAVE CHANGE ADDRESS 

64024 5E LD E (HL): LOAD DE WITH PRESENT OFFSET 
FOUND IN (HL) 

64025 25 INC HL 

64026 56 LD D, (HL) 

64027 EB EX DE, HL: FRESET CHANGE ADDR OFFSET 


TO HL 


7) 
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64028 
64029 
64020 
64031 
64032 
64033 


64042 
64045 
64048 
64051 
64053 
64056 
64057 
64059 
64062 
64064 
64067 
64070 
64073 
64074 
64075 
64076 
64077 


64078 
64082 
64084 
64086 
64088 
64091 
64092 
64095 
64097 
64099 
64100 
64102 
64103 
64106 


64107 
64109 
64110 
64115 
64116 
64117 
64120 
64125 
©4124 


18E7 
SECS 
520800% 
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SETCHAN 


THE FIRST ADDRESS 
MARKED WITH А t 


215000% 
220900% 
114E00% 
180E 
$a9253 


RESTORE 


NOTTV 
CHANGE 


FDCBO246 LPRINT 


2807 
FEOD 
282Е 
C3DOOOXx 
47 
SA0600x 
FEFF 


се 


CD3oo1x 
CDi1CO1x 
C1 
Ср2801% 
5АО7ООЖ 
BB 
20ED 


UPPER 


SENDSP 
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ADD HL, BC: NEW ADDRESS 
EX DE, HL: MOVE NEW ADDR TO DE 
FOF HL: GET CHANGE ADDRESS BACK 


LD (HL), E: CHANGE IT WITH DE VALUE 
INC Ht 
LD (HL), D 


РОР HL: GET OFFSET POINTER BACK 

JR LOOP 

LD A, 195: CHANGE 64008-64010 

LD (64008),A: TO JP OFFSET + 78 THIS 
THAT GETS CHANGED. ALL CHANGES ARE 


LD HL, 64048: 

LD (64009), HL 
LD DE, 640781 

JR CHANGE 

LD А, (15202); 
ZERO? 
JR 2, NOTTV 

LD DE 1280: 

JR CHANGE 

LD DE, 2548 

LD HL, (23631): 
LD BC, 15: 
ADD HL, EC 
LD (HL), E 


2ND ADDR CHANGED. 
SET LPRINT CHANNEL 


RESTORE P CHANNEL 


SENDTV 


CHANNELS 
SRD CHANNEL 


BIT О, (IY*2) 
JR 2, UPPER 
СР 13 ENTER? 
JR 2, ENTER 
JP 642081: SENDCHAR 

LD B, А 

LD А, (64006):COUNT 

СР 255: LINE FULL LEFT 
JR Z, SENDSP 

AND А: LINE FULL RIGHT 
JR Z, NEWLN 

DEC А: UPDATE COUNT 

LD (64006), А 

RET 


TVFLAG 


LD A, 52: 
FUSH BC 
CALL 643041 
CALL 64284: 
POP BC 
CALL 64296: UFDATEFOSN 
LD А, (64007) WIDTHLEFT 
СР B 
JR NZ, 


SPACE 


FRINTCH 
CHECKWD 


SENDSP 
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64126 
64127 
64150 


64151 
64152 
64134 
64156 
64138 
64140 
64142 
64144 
64146 
64148 
64150 
©4151 
64155 
64155 
64157 
64159 
64161 
64163 
64166 


64167 
64169 
64171 
64173 
64175 
64177 
64178 
64180 
64182 
64184 
64186 
64188 
64190 
64192 
64194 
64198 
64200 
64202 
64204 
64206 
64208 
64211 
64214 
64217 


64218 
64220 
64221 
64224 
64223 


АЕ 
3206008 
c9 


78 

FEOD 
2865 
FEOC 
2004 


NEWLN 


ENTER 


SKIPDEL 


$20600% 
C9 


RET1 


TAB 
AT 


CONTINUE 


5006 
FDCBO166 
2814 
FESO 
2804 
FEAS 
300A 
CDz001% 
CDicoix 
CD2801*X 
c9 


GRAPHIC? 


SENDCH 


DéAS 
FS 
549253 
А7 
2805 


UDG 
РАТОКЕМ 


Advanced 2068 Machine Code 


ХОК А: Ажо: RESET COUNT 
LD (64006), А 
RET 


А, В 

15: ENTER? 

JR Z, ENTER2 

121 DELETE? 

NZ, SKIFDEL 

А, 122: DELETE CODE 
PRTOKEN 

6: PRINT COMMA? 

JR Z, COMMA 

16: INK CODE? 

RET C: UNPRINTABLE IF «16 
221 AT? 

JR Z, AT 

25: TAB? 

JR 7, ТАВ 

NC, CONTINUE 

А, 1: UFDATE COUNTER 
(64006), А 


RET С: RETURN IF «Z2 UNPRINTABLE 
1241 STICK? 

JR Z, PRTOKEN 

1261FREE? 

7, PRTOKEN 

1231 «123? 

C, GRAPHIC? 

128: GRAPHIC? 

NC, GRAPHIC? 
BIT 4, (IY*1): 
JR Z, PRTOKEN 
CP 128 

JR C, SENDCH 

CP 165: UDG? 

JR NC, UDG 
CALL PRINTIT 
CALL CHECKWD 
CALL UPDFOS 

RET 


FLAGS COMMAND MODE? 


SUB 165: 
FUSH AF: 
LD A, 
AND А: 
JR Z, 


OFFSET FOR UDG TOKEN 
SAVE CODE 
(13202) 
ZERO? 
KEYBOARD 


SEOD 
CD3OO1f 
SAOSOOK 
A7 
C43001% 
AF 
$20700% 
C? 


3A0400% 


CD3001% 
CD1CO1* 
Di 

CD2801% 
SA07 00K 


5АО7ООХЖ 
57 
SA0400% 
BA 
CCEDOOx 
C9 


$00700* 
SC 
320700% 
cC? 
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KEYBOARD 


NEWLN 


COMMA 


SPACE 


CHECKWD 


UPDPOS 


РКІМТІТ 


МЕХТСН 


POP AF: GET ТОКЕМ BACK 
CALL 1861: GET TOKEN 

RET 

FOF AF 

CALL 5088: KEYBOARD INPUT 
RET 


LD А, 131 ENTER 

CALL PRINTIT: SEND ENTER 
LD А, (64007): UPD COUNT 
AND A: ZERO? 

CALL NZ, PRINTIT 

ХОК А: A =O 

LD (64007), A 

RET 


LD A, (64004): WIDTH - 1 
LD D, A 

SRA A: WIDTH/2 

LD E, A 

LD А, SPACE 

PUSH DE 

CALL PRINTIT 

CALL CHECKWD 

POP DE 

CALL UFDFOS 

(64007) 

СР D: LESS ТНАМ LINE? 
JR Z, NEWLN 

CP E: LESS ТНАМ 1/2 LINE? 


LD А, (64007): POSITION 
LD D, ArSTORE IN D 

LD А, (64004)1 WIDTH 

CF D: >WIDTH? 

CALL Z, NEWLN 

RET 


LD А, (64007) 
INC А 

LD (64007), А 
RET 


PUSH AF: SAVE REGISTERS 
PUSH ЕС 

PUSH DE 

PUSH HL 

LD DE, O 

LD C, А: SAVE CODE IN C 
PUSH АЕ 

LD А, (13202) 

AND à: ZERO? 
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64517 2806 JR 2, SKIPBK 

64319 F1 POF AF 

64320 CDO920 CALL 82011 BREAK? 

64525 1804 JR ТЕЗТЕК 

64325 F1 SKIFBK POP AF 

64526 CDSA1F CALL 80201 SCROLL??? 
64329 3802 TESTBK JR C, SKIPERR 

64331 CF RST 8: ERROR 

64552 14 INVALID COLOR 

64555 CS SKIPERR PUSH BC 

64334 DB7F CKPRINT IN A, (127): PRINTER BUSY? 
64556 4F LD С, А: STORE ІМ С 
64337 0650 LD B, 80: COUNT FOR WAIT 
64559 DB7F DEBOUNCE IN А, (127)1 CHECK AGAIN 
64541 B9 CP C: STILL THE SAME? 
64542 20F6 JR NZ, СКРКІМТ 

64544 10F6 DJNZ DEBOUNCE 

64346 Сі FOF BC 

64547 СВАҒ БІТ 1, А: PRINTER READY? 
64549 2802 JR Z, READY 

64351 CF RST 8: ERROR 

64352 А2 162 PRINTER NOT ON LINE 
64353 CB&7 READY BIT 4, A: BREAK KEY PRESSED? 
64555 2800 JR 2, SENDIT 

64537 1B DEC DE 

64358 CS PUSH BC: SAVE BC 

64359 0660 LD B, 96 

64361 10FE WAIT DJNZ WAIT 

64363 Сі POP BC: GET BC BACK 
64504 7А LD А, р: DE = 0? 

64165 B3 ОК E 

64366 20C8 JR NZ, NEXTCH 

64368 CF RST 8: ERROR 

64569 BD 189 BREAK KEY PRESSED 
64370 79 SENDIT LD а, C 

64571 F3 DI 

64572 D37F QUT (1270,4 

64374 Ei РОР HL 

643735 DB7F IN А, (127) 

64377 FB EI 

64378 D1 РОР DE 

64579 С! РОР ВС 

64380 F1 POP АЕ 

64381 C9 КЕТ 


LPRINT and LLIST are quite easy and standard for most printers 
except when printing the 2068's UDG graphics. These codes have 
to be sent in graphic mode which means switching the printer to 
that mode as is done in COPY апа then switching back. The 2040 
printer which is always working in the graphic mode has no 
difficulties. COPY is the headache аз each printer has a 
different set of codes to handle graphics. However, most printer 
do it in one of two different Ways so that most of the time опе 
or the other of the following routines can be used ав long as 
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the customizing codes are sent first. Of course they still 


to be handled through 
difference as well. 


We start with a load graphic code 


routines. 


а printer interface which 


routine used by both 


The codes given in the routine are those that would be 


poked there from the Basic for a Gemini 10X printer--the 


happen to have. 
routine. 


64582 
64585 
64386 
64388 
64392 
64396 
64399 
64400 
64403 
64405 
64410 
64416 
64417 
64420 
64421 
64424 
64425 
64426 
64428 
64430 
64431 
64432 
64455 
64457 
64438 
64439 
64440 
64443 


ES 
218401% 
1820 
05185510 DATAI 
00000000 
900000 
ES 
219501% 
180F 
90418480001 рата2 
000000000000 

ES SETUPS 
218801% 
c5 
CDEDOOK 
7E 

47 

ҒЕОО 
2807 

25 

7Е 
CD3OO1*x 
10F9 

C1 

E1 

cC? 
021540 DATAZ 
0000000000000 


SETUP1 


SETUF2 


SENDCODE 


LOOF2 


RET2 


Both copy routines call routines from the LPRINT 


PUSH HL 

LD HL, 64388 
JR SENDCODE 
DEFB: 
DEFEB: 
DEFB 
PUSH HL 

LD HL, 64405 

JR SENDCODE 

DEFB: AS FOR DATA1 
DEFB 
PUSH HL 
LD HL, 
PUSH BC 
CALL NEWLN 
LD А, (HL) 1 
LD В,А 
CP O1 
JR Z, 
INC HL 
LD A, (HL) 
CALL PRINTCH 
DJNZ LOOF2 
POP BC 
POP HL 
RET 
DEFB: 
DEFB 


BY THE CODES--SFACE FOR 10 


64440: DATAS 


GET COUNT 


IN ZERO RETURN 
RET2 


AS IN ратаі 


COPY ROUTINE 1 FOR MOST PRINTERS 


64450 
64452 
64455 
64457 
64460 
64465 
64465 
64468 
64470 


DDES 
CD7EO1X* 
0618 
210040 
CDD701% 
10FB 
CDA001* 
DDE 1 

cC? 


COFY1 


COPYLOOF 1 


64471 
64472 
64475 


cS 
CD8FO1*X* 
0620 


COPYROUT 


PUSH IX: SAVE IX 

CALL ЗЕТУР1 

LD B, 24: 24 LINES 

LD HL, DFILE1 

CALL COFYROUT 

DJNZ COFYLOOF1 

CALL ЗЕТУРЗ: CALCEL GRAFHIC PRINT 


FOF IX 
RET 
PUSH BC: SAVE LINE COUNT 


CALL SETUP2 


LD B, 32: Z2 CHAR SFACES/LINE 
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makes 


THE FIRST IS * TO SEND FOLLOWED 
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64477 1680 NEWMASK LD D, 128: MASK FORDFILE PIXEL 
ADDR 64480 МАУ CANGE FOR YOUR PRINTER 
64479 1EO1 LD E,1 :PIXEL TO PRINT 
64481 ES PUSH HL 
64482 1803 JR SKIFNL 
64484 CDO702* CALLNXL CALL NEXTLN 
64487 7E SKIPNL LD A, (HL) 
64488 А2 AND D 
64489 2808 JR Z, MOVEPIL 
ADDR 64492, 64494 AND 64500 MAY CHANGE FOR YOUR PRINTER 
64491 СВО! SLA E: SHIFT PIXEL LEFT 
64493 СОС SET О, Е; ADD ANOTHER PIXEL TO STRING 
64495 ЗОҒЗ JR МС, CALLNXL: IF NO OVERFLOW 
64497 1804 JR SENDPIXL 
64499 СВ25 MOVEF 1L SLA E: MOVE PIXEL 1 LEFT 
64501 30ED JR NC, CALLNXL 
64503 7B SENDPIXL LDA, Е 
64504 CD3001% CALL PRINTCH 
64507 Е! РОР HL 
64508 СВЗА SRL D: SHIFT MASK 1 RIGHT 
64510 SODF JR NC, CALLNXL 
64512 CDLEO2x CALL NX3RD 
64515 1008 DJNZ NEWMASK 
64517 C1 POP BC 
64518 C9 RET 
64519 CS NEXTLN PUSH BC 
64520 7C LD A, H 
64521 010001 LD BC, 256 
64524 09 ADD HL, BC 
64525 E607 AND 7: SAVE 3 LOW BITS OF А 
64527 FEO7 CP 71 FULL? 
64529 2006 JR NZ, RET4 
64551 А7 AND А: ZERO? 
64552 01Е007 LD BC, 2016: BYTES TO 1/2 OF SCREEN 
64555 ED42 SEC HL, BC 
64537 ES RET4 PUSH HL: LD IX, HL 
64528 DDE1 РОР IX 
64540 C1 POP BC 
64541 C9 RET 
64542 CS NX3RD PUSH BC 
64545 7D LD A,L 
64544 23 INC HL 
64545 FEFF СР 255: END OF A THIRD? 
64547 281C JR Z, NEXT1/3 
64549 ЕБЕ AND 21 
64551 FEIF СР 51 
64553 2014 JR NZ, RETZ 
64555 DDES PUSH IX: LD HL. IX 
64557 Е1 РОР HL 
64558 7C LD А, H 
64559 О1Е100 LD BC, 225 
64562 09 ADD HL, BC 
64565 E607 AND 7 


2 


^A 
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64565 FEO7 СР 7: END OF А THIRD? 
64567 2006 JR NZ, RETS 

64569 A7 AND A 

64570 016007 LD BC, 2016: LAST THIRD 
64575 ED42 SBC HL, BC 

64575 C1 RETZ POP EC 

64576 C9 RET 

64577 O10007 МЕХТ1/5 LD BC, 1792 

64580 09 ADD HL, BC 

64581 18FB JR RETS 


START OF COPY 21 FOR OLIVETTE PR2300 TYPE PRINTERS 


64585 151Б501В2ҒОО DATA4 DEFE 21,27,48,27,47,0 


64589 001B47313030 DEFB 0,27,71,49, 48,48 
64595 5385055525850 DEFE 59,48,51,50,60,48 
64601 32341B5A DEFB 50,52,27,90 

64605 ES SETUPS FUSH HL 

64606 214705% LD HL, 64583 

64609 CTA402% JF SENDCODE 


ENTRY POINT FOR СОРҮ2 


64612 ES COFY2 FUSH HL: SAVE ALL REGISTERS 
64613 FS PUSH AF 

64614 CS PUSH BC 

64615 DS РУЗН DE 

64616 CDSD02% CALL SETUFS 

64619 210040 LD HL, DFILE1 

64622 CDB202% CALL PRINTBLOCK 

64625 21004B LD HL, 18432: DFILE 2ND 3RD 
64628 CD8202*t CALL PRINTBLOCK 

64651 210050 LD HL, 20480: DFILE 3RD 3RD 
64654 С08202% CALL PRINTBLOCK 

64637 D1 POP DE 

64658 Сі РОР ВС 

64659 F1 РОР АҒ 

64640 Е1 РОР HL 

64641 C9 RET 

64642 OEOB FRINTBLOCK LD C, 8: PRINT LINES/BLOCK 
64644 ES SAVEPOINTER PUSH HL: DFILE LINE FOINTER 
64645 110001 LD DE, 256: OFFSET TO NEXT FIX LINE 
64648 0608 LD B, 8:PIXEL LINES/PRINT LINE 
64650 ES 00Р FUSH HL:FRESENT FIXEL 

64651 CS FUSH ВС: SAVE COUNTERS 

64652 O620 LD В, Z2: CHAR/LINE 

64654 7E NEXTFIX LD А, (HL): GET NEXT PIXEL 
64655 CDAAOZ2t CALL WAIT2 

64658 CD3002k CALL FRINTIT 

64661 23 INC HL 

64662 10F6 DINZ LOOPS 

64664 Сі FOF BC: UFDATE OTHER COUNTERS 


64665 E1 POP HL 
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64666 87 AND à: RESET FLAGS 
64667 EDSA ADC HL, DE: ADD OFFSET 
64669 10ЕВ DJNZ LOOFS 

64671 E1 РОР HL: CHANGE FRINT LINES 
64672 112000 LD DE, 32 

64675 А7 AND à: CLEAR FLAGS 
64676 EDSA ADC HL, DE 

64678 OD DEC C 

64679 2O0DB JR NZ, SAVEPOINTER 
64681 C9 RET 

64682 CS WAIT2 PUSH BC 

64682 0600 LD B, O 

64685 ОО 00Р4 МОР 

64686 OO МОР 

64687 10FC DJNZ LOOP4 

64689 C1 FOF BC 

64690 C9 RET 


AND FINALLY THE ADDRESS OFFSET TABLE FOR RELOCATING THE CODE: 


64691 2800 DEFW 40 

64693 2BOO DEFW 45 

64695 2ЕОО DEFW 46 

64697 5100 DEFW 49 

64699 5900 DEFW 89 

64701 5000 БЕРИ 93 

64703 6800 DEFW 104 
64705 6FOO DEFW 111 
64707 7200 DEFW 114 
64709 7600 DEFW 118 
64711 7900 DEFW 121 
64713 8000 DEFW 128 
64715 A400 DEFW 164 
64717 DiOO DEFW 209 
64719 D400 DEFW 212 
64721 D700 DEFW 215 
64723 ЕООО DEFW 240 
64725 F200 DEFW 245 
64727 F700 DEFW 247 
64729 FBOO DEFW 251 
64731 FFOO DEFW 255 
64735 0901 DEFW 265 
64755 ОСО1 DEFW 268 
64737 1001 DEFW 272 
64739 1301 DEFW 275 
64741 1DO1 DEFW 285 
64745 2101 DEFW 289 
64745 2501 DEFW 293 
64747 2901 DEFW 297 
64749 2DO1 DEFW 301 
64751 8001 DEFW 384 
64752 9101 DEFW 401 
64755 A201 DEFW 418 


64757 А601 DEFW 422 
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64759 В101 DEFW 453 
64761 C301 DEFW 453 
64763 CDO1 DEFW 461 
64765 D201 DEFW 466 
64767 0901 DEFW 475 
64769 E501 DEFW 485 
64769 F901 DEFW 505 
©4759 0102 DEFW 515 
64751 SFO2 DEFW 607 
64765 6202 DEFW 610 
64765 6902 DEFW 617 
64767 6FO2 DEFW 623 
64769 7502 DEFW 62 
64771 7BO2 DEFW 655 
64775 9002 DEFW 656 
64775 9302 DEFW 659 


END OF PROGRAM 


EASY PRINT MESSAGE ROUTINE 


We pointed out in the Introduction To 2068 Code the calling of 
several ROM routines that could be useful in your programs. Опе 
of these was the SCROLL THE SCREEN ONE LINE at 2261. Another 
simple but useful routine is PRINT А MESSAGE at 1855. 


This routine uses RST 16 so before entering your machine code 
you must initialize the screen with a CLS and a PRINT АТ 0,01. 
Even if you never want to print at that address, it does no harm 
in messing up your screens. I have seen too many print routines 
using one-after-the-other sequences of LD A, Code # followed by 
RST 16. This routine does away with all those wasteful LD А and 
RST 16’s. BUT you must follow the correct setup of registers and 
the messages before calling 1855. Even this is quite simple: 


LD A, Message # - 1 (message 1 = O) 

LD DE, ADDR of Message Block -1 

CALL 1855 | 

RET 1+ you like or continue with something else. 


The protocol for the message block is that the first byte must 
be greater than 128. Ап artificial 128 or even using the 201 
code of a RET statement from the preceding routine is 
satisfactory. 


The 2nd requirement of the message block is that the last 
character of each messsage has its code 128 higher than normal. 
Suppose your message ends with a period (Code 46). Merely insert 
174 instead. 


The last character of message 1 signals the computer that it’s 
at the end of that message and message 2 starts at the next 
byte, etc. Because of this arrangement, you obviously can’t 
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encode tokens, standard graphics or UDG graphics inside your 
messages as they would automatically signal the end of a message 
as they are numbers over 127. They print as a "?" if unprintable 
Or аз а character after subtracting 128 from the code. 


Now a bonus. You can even use all the print codes (Codes 16 to 
23) like TAB, AT, INK, OVER, etc., at the start or in your 
messages to control your printing using the typical BASIC 
arguments to control them. The AT, for example, can be encoded 
with 22,5,5 to print the messsage at 5,5. OVER and INVERSE use 
the 1 and О as usual with INK and PAPER numbers from 1 to В. 
Don’t use the print codes for the argument numbers but the 
absolute values as in the example. If you go into printing one 
message over the top of the previous one, make sure that you 
enter enough blanks at the end to completely erase longer 
messages or you will get the tail of the longer message attached 
to the end of a shorter one just as you do in Basic. 


CHAPTER 5. ACTIVATING AERCO BANKS FOR BASIC 


This article first appeared in SMUG BYTES in April of 1987 but 
it is of so much importance that it must be included here . just 
in case you missed it and do have Аегсо disk drives. Even 
without spending the extra $50 for the extra = banks Of memory, 
at least you can use Basic in the dock bank. It was written for 
nonmachine code people and is quite user friendly. 


Here is the program those of us with Aerco Disk drives with 
extra banks Of memory have been waiting for. Although we had the 
code for putting Basic into the dock bank since June (See  FD-68 
vol 1.2) albeit with an error, we were missing the necessary 
bank numbers for the other banks. Many thanks to David Hill for 
the 4 drive program modifications. I just put it all together. 


The two port numbers to remember ere 60639 for a 2 drive system 
and 62687 for the 4 drive system. The bank numbers for the 2 
drive system are 128, 152, 136, and 140 AND 128, 129, 156 and 
157 for the 4 drive system. You just have to remember the 
numbers that apply to your particular system. 


To install the correct codes into the other banks you will have 
to type in two short m/c programs and a basic program. What is 
listed below is for the 2 DRIVE SYSTEM. 


Program 11 


1 REM 2 DRIVES 

5 FOR А = 24047 TO 24152 

10 READ B: POKE А,В: NEXT А 

20 DATA 245, 62,3, 211,244, 33,0,0,17,0, 128, 1,0, 64, 237, 176, 52, 3, 
211,244, 62,132, 1, 223, 236,237,121, 33,0, 128, 17,0,0, 1,0, 237, 176, 
62, 136, 1, 223, 236, 237, 121, 33,0, 128, 17,0, 0,1, 0, 64, 237, 176, 62, 140, 
1, 223, 236,237, 121,33,0,128,17,0,0,1,0,64, 237, 176, 62, 128, 1, 225, 
236, 237,121,62,1,211, 244, 251, 201 


Check the data line Carefully and run the program then save this 
code to disk with MOVE "banks. bin", 24047, 87. 


Program 24 


1 REM BASIC INSTALLER: 

5 FOR A = 24520 ТО 24516 

10 READ B: РОКЕ A,B: NEXT А 

20 DATA 245,219,244,8, 58, 158,95,6,0,184,40,62,8,6,1,184,40,28, 
35,04,92,17,0,128,1,203,0,237,176,62,1,211,244,23,0,91,17,0,92,1 
50 БАТА 203,0,237,176,251,201,33,0,92,17,0,91,1,202,0, 227, 176, 
62,241,211,244,25,0,128,17,0,92,1,203,0,237,176,251,201,62, 1,211 
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40 DATA 244,50, 158,95,55,0,92, 17,0,91,1,203,0,257, 176, 62, 241, 
211,244, 55,204, 128,54, 128,35, 54,15, 22, 54, 128, 22, 89,92, 17,75,92,1 
50 DATA 85,92,%2,204,54,205,18,2,55,19,5,02,128,119,18,2,24, 
142,53,0,91,17,0,128,1,203,0, 237,176, 205, 2, 10, 22,0,128, 17,0,91, 1 
60 DATA 203,0,237,176,201,0,1,241,17,0,0,32,0,0,1,0,0, 58, 159, 
95,211,244,126,8,58,160,95,211,244,8,18,19, 25, 11,120,177, 32, 225 
70 DATA 58,160,95,211,244,201 


Again, check the data lines carefully, run the program and save 
the code to disk with MOVE "dockbas.bin",24220,197. 


Program 31 


1 REM 2 DRIVES 

2 REM FOR 4 DRIVE SYSTEMS CHANGE POKE 60659 TO POKE 62587 USING 
128, 129, 136 AND 137 FOR BANK NUMBERS. ALSO POKE 24071, 24089, 
24107 AND 24125 WITH 244. THEN FOKE 24068,1291 POKE 24086, 156: 
POKE 24104,137 

5 CAT "BANKS.BIN", 

10 BORDER 1: PAPER 1: INK 5: CLS 

15 OUT 244,11 OUT 60439,128: PRINT "NOW TRANSFERING OPERATING 
SYSTEM TO SHADOW DOCK BANKS"'* 

20 RANDOMIZE USR 24520 

25 FOR B = 128 TO 140 STEP 4:REM CHANGE FOR 4 DRIVE SYSTEM 

ЗО QUT 60639,B:PRINT "OUT 60639, ",BiO0UT 244,1:РОКЕ 37,B: NEXT 
B:REM INSTALL BANK NUMBERS 

35 OUT 244,1 

40 PRINT "ALL BANKS NOW HAVE AERCO DISK DRIVE INTERFACE 
OPERATING SYSTEM WITH ID AT BYTE 37" 

42 PRINT 

45 CAT "DOCKBAS. EIN", 

SO INPUT "WHICH BANKS DO YOU WISH BASIC SYSTEM INSTALLED? (0-3) 
OsDOCK "ҙа 

55 IF A <O OR A >3 THEN GO TO 50 

60 LET А = At41 REM FOR 4 DRIVE SYSTEM USE--IF А >2 THEN LET А 
=A + 6 

65 LET A = + 128 

70 OUT 60639,A: RANDOMIZE USR 242201 OUT 244,1 

75 PRINT "BASIC SYSTEM IN BANK "3A 

BO INPUT "INSTALL BASIC SYSTEM IN ANOTHER BANK? (Y/N) "jY$ 

85 IF Y$ = "Y" OR Ү% = "y" THEN РОКЕ 24478,0: GO TO 50 

90 CLS: PRINT TAB 8; FLASH 1; "READ CAREFULLY"; FLASH O 

100 PRINT '*'"YOU ARE STILL IN THE HOME BANK BUT ARE USING CHUNK 
O OF THE LAST BANK YOU ACTIVATED WITH BASIC." 

105 PRINT *"TQ ACTIVATE THIS BANK MERELY DO:"3 FLASH 1; 
"RANDOMIE USR 24220: OUT 244,241"; FLASH О 

110 PRINT '"TO ACTIVATE BASIC IN DIFFERENT BANK DO: "; FLASH 1; 
“OUT 24320,91 "í FLASH О; "WHERE # IS ONE OF THE BANK NUMBERS 
GIVEN. THEN FOLLOW WITH: RANDOMIZE USR 24320: OUT 244,241 ALL ON 
THE SAME LINE." 

120 PRINT "TO GET BACK TO HOME BANK DO: RANDOMIZE USR 24220 AND 
OUT 244,1" 

150 PRINT ''TAB 4; FLASH 1; "PRESS АМҮ KEY FOR MORE": FLASH 
O:PAUSE О 
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140 CLS: PRINT "ANY BASIC PROGRAM САМ BE LOADED DIRECTLY INTO AN 
ACTIVATED BANK BUT ""COFY"" COMMANDS MUST BE CHANGED TO 
RANDOMIZE USR 24452" 
150 PRINT "BINARY CODE PORTIONS OF PROGRAMS MUST BE FIRST LOADED 
INTO THE HOME BANK AND TRANSFERRED TO THE DESIRED BANK WITH THE 
CODE AT 24479 AS LISTED IN THIS PROGRAM. ONCE LOADED, A SAVE TO 
THE DISK THEN ALLOWS DIRECT LOADING FROM BASIC USING THE NEW BIN 
SAVE." 

160 PRINT '"NEVER USE THE ""NEW"" COMMAND TO ERASE А PROGRAM AS 
THE COMPLETE INSTALLATION ALSO IS DELETED. USE DELETE #,# 
INSTEAD." 

170 PRINT 'TAB 4; FLASH 1; "PRESS ANY KEY FOR MORE": FLASH О: 
PAUSE O 
180 CLS: PRINT "THIS PROGRAM USES CODE АТ 24047 TO 24135 AND 
24520 TO 24516. THE BASIC PROGRAM МАУ NOW ВЕ ERASED. YOU MAY 
WISH TO USE THE LINES AT 9000 FOR YOUR PROGRAM SETUPS AFTER 
WHICH THEY TOO CAN GO." 
190 PRINT ''*'"TAB Уу"НАРРУ COMPUTERING" 
200 STOP 
9000 REM XFER BIN 

9005 INPUT “WHICH BANK? 128, 152, 136, 1407 "ЈА: КЕМ 128, 129, 
` 136, 137 FOR 4 DRIVES 
9010 POKE 60639,A: REM 62687 FOR 4 DRIVE 
9015 INPUT "ENTER FILE МАМЕ TO BE TRANSFERRED "A$: LET B$ = ñ$ 
9020 LET A = (A - 128)/4 1 REM "А = A - 128 1 IF A > 2 THEN LET 
A = - 4" FOR 4 DRIVE SYSTEM 
9025 IF LEN ВФ > (10 - А) THEN LET ВФ = B$( TO 10 - A) 
9050 FOR X ж 1 TO ñ: LET BS = BS + "X": NEXT Xs REM NAME IS 
SUFFIXED WITH 1 TO 4 ж TO SFECIFY WHICH BANK 
9035 LET AS = AS + ".BIN"","1 CAT "AS", 
9040 INPUT "STARTING ADDRESS "ЗА: LET S = A: GO SUB 9100 
9045 INPUT “LENGTH OF CODE (MAX 32768) "B: IF В > 32768 THEN 
PRINT “CODE TOO LONG FOR BANK": STOP 
9050 LET $ = B: 60 SUB 9110 
9055 RANDOMIZE USR 24481 
9060 LET BS = BS + ".BIN"","4 STR A + "|" + STR$ B: MOVE "Bs", 
9065 OUT 244,1; STOP 
9100 GO SUB 9200: РОКЕ 24485,10: POKE 24486,HI: POKE 24482,10: 
РОКЕ 24483,HI: RETURN 
9110 GO SUB 9200: РОКЕ 24488,L0: FOKE 24489,HI: RETURN 
9200 LET HI = INT (S/256): LET LO = S - (HIX256): RETURN 


Save this program to disk with MOVE "banks.bas", before running 
it. 


Before running the program, let's explain what is going to 
happen. The first code actually takes chunks О and 1 and loads 
them in the home bank above 52768. It then activates all 4 banks 
in turn and writes the code to these banks in chunks О and 1 
returning to the home bank. In the process it also writes the 
bank * into byte 37 of each bank. A peek of this byte will 
always tell you what bank is ready. 


The code of the 2nd program sets up the Basic programer into 
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each bank you select. Certain things are necessary to run Basic 
in a bank. Since each program will be a different length a copy 
of the systems variables table must be preserved somewhere 
before leaving the home bank. This is done by storing it into 
the printer buffer for the 2040 printer. А new copy of the 
system variables is then set up with a program starting address 
of 32972 with the proper end markers inserted into the ram for 
the end of Basic, the end of vars and eline. The space between 
32768 and 52972 stores the 204 bytes of the system variables 
table for that bank. Upon shifting banks the proper system 
variables are put into the normal systems variable area of chunk 
2 which also contains the display file for the monitor/tv. Doing 
all the OUT 244,241'& activates all but chunks 1, 2 and 2 of 
each bank. Never activate chunk 2 or you lose the display file 
and the systems variable table. Never activate chunk 3 or you 
lose the machine stack and the exrom switching code. Because the 
printer buffer is used, a special routine for the extra banks is 
used to copy out the printer buffer to another area so it can be 
used for the 2040 printer from the extra banks--that is why the 
Randomize Usr 24452. 


Also note that the machine code stack is common to all banks. 
This gives us a headache in Basic. We can shift banks in the 
middle of a program as long as we are not in a subroutine when 
we do it--a subroutine pushes the return addresz unto the stack 
and it may get buried or be used at the wrong time if we are not 
careful. 


The expert will note that only the basic $2 character per line 
screen can be used at this point. Further modifications are 
necessary before you activate other screen modes. 


Also note at this time that there is no transferring of Basic 
variables from one program to another. Each bank has its own 
Basic variables table. 


Now for а little demo. Run the program and install Basic іп ас 
many banks аз you desire. Read all the help screens. When the 
program stops enter in command mode the RANDOMISE USR 24320 and 
Qut 244,241. Do а CLS and try LIST---you get а 0/0 ok in the 
bottom corner but no program. Now, just for fun type in the line 
1 PRINT PEEK $7 and RUN it just to make sure the bank Basic 
works. Okay? Let's go back to the home bank. RANDOMIZE USR 24220 
and OUT 244,1. Doing a LIST should get back a listing of this 
program. For a different bank use OUT 60629,% where # is a 
different bank you have set up for Basic. Once again  RANDOMISE 
USR 24520 and OUT 244,241 followed by CLS and LIST and once 
again no program. Enter something different for a one line 
program if you like and go back to the home bank again. Note 
that each use of RANDOMISE USR 24520 toggles you between the 
home bank and the activated bank. Don’t forget the OUT 244 
statements or your computer will get lost. Never use NEW or all 
this initialization you have been doing is lost. 


~) 


Chapter 2 Advanced 2068 Machine Code Page 41 
What you do with all 5 banks in Basic mode only you and your 
wildest imagination can decide. Have fun. 

The actual routines аге: 


Operating System: 


24047 ЕЗ DI 

24048 3ЕОЗ LD а, $ 
24050 DIF4 OUT (244), А 
24052 210000 LD HL, O 
24055 110000 LD DE, 32768 
24038 010040 LD BC, 16384 
24061 EDBO LDIR 

24063 ЗЕОЗ LD A, 3 
24065 DS3F4 QUT (244), А 
24067 3E84 LD А, 132 
24069 O1DFEC LD BC, 60639 
24072 ED79 OUT (C), А 
24074 210080 LD HL, 22768 
24077 110000 LD DE, O 
24080 010040 LD BC, 16584 
24085 EDBO LDIR 

24085 3E88 LD А, 156 
24087 O1DFEC LD BC, 60639 
24090 ED79 OUT (244), A 
24092 210080 LD HL, 32768 
24095 110000 LD DE, O 
24098 010040 LD BC, 16584 
24101 EDBO LDIR 

24105 ЗЕВС LD А, 140 
24105 O1DFEC LD BC, 60639 
24108 ED79 OUT (2440, А 
24110 210080 LD HL, 32768 
24113 110000 LD DE, O 
24116 010040 LD BC, 16584 
24119 EDBO LDIR 

24121 ЗЕВО LD А, 128 
24123 O1DFEC LD BC, 60639 
24126 ED79 OUT (С), А 
24128 SEO1 LD А, 1 
24130 D3F4 OUT (244), А 
24132 FB | ЕТ 

24155 C9 БЕТ 


BASIC INTO BANK 


24520 FS DI :DISABLE INTERRUFTS UNTIL DONE 

24521 ОВЕ4 IN А, (244) 1GET CURRENT CHUNKS ENABLED 
24525 08 EX АҒ, AF’ +: SAVE IN A’ 

24324 SA9ES5F LD A, (24478) 

24527 0600 LD В, О : IF 244478=0 INITIALIZE АТ 24294 
24329 BS СР B 


24330 283E JR Z, INIT 


BANK 


INIT 


EX АҒ, 
LD B, 
CP B 

JR Z, 
LD HL, 
LD DE, 
LD BC, 
LDIR 

LD а, 


LD HL, 


LD А, 


АЕ? 
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1 1: IF CURRENT BANK жі 


BANK 
25552 
32768 
203 


: SAVE SYS VARS 


1: SHIFT BANKS 
QUT (244), A 


252961 
25552 
205 


255524 
25596 


205 


2411 


OUT (244), А 


LD HL, 
LD DE, 


RET 
LD А, 


LD (24478), 


LD HL, 
LD DE, 
LD BC, 
LDIR 
LD д, 


327681 


LOAD HOME SYS 


SAVE HOME SYS 


CHANGE TO BANK 


LOAD BANK SYS 
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THEN BANK 


OF BANK 


VARS 


VARS 


VARS 


1: SWICH TO HOME AND SET INIT BYTE 
OUT (244), A 


235521 
25396 
205 


241: 


OUT (244), А 


LD HL, 


$2972: 
128 


a 


SAVE HOME SYS 


CHANGE ТО BANK 


VARS 


ADJUST PROG, VARS & ELINE 


: END MARKERS 


LD (HL), 
INC HL 


25627 
25655 


МА 
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24447 77 LD (HL), А 

24448 12 LD (DE), A 

24449 02 LD (BC), A 

24450 1ВВЕ JR HOME 

24452 21005В COPY LD HL, PRINT BUFFER 

24455 110080 LD DE, BANK STORAGE 

24458 O1CBOO LD BC, 203 

24461 EDBO LDIR 

24465 CDO20A CALL 2562 :COPY 

24466 210080 LD HL, BANK STORAGE 

24469 110055 LD DE, PRINT BUFFER 

24472 O1CBOO LD BC, 202 

24475 EDBO LDIR 

24477 C9 КЕТ 

24478 ОО МОР : INIT FLAG 

24479 O1 ХҒЕК CODE SOURCE BANK CHUNKS ТО BE ENABLED 
24480 F1 DESTINATION BANK CHUNKS TO BE ENABLED 
24481 110000 LD DE, DESTINATION ADDRESS--SEE NOTES 
24484 210000 LD HL, SOURCE ADDRESS 

24487 010000 LD BC, LENGTH 

24490 SA9FSF LOOP LD A, (24479): LD SOURCE BANKS CHUNKS 
24493 F4 OUT (244), А: ENABLE SOURCE BANKS 
24495 7E LD А, (HL) :LOAD BYTE FOR XFER 

24496 ОВ ЕХ AF,AF’:STORE IT 

24497 ЗААОЗЕ LD А, (24480): GET DEST CHUNKS 

24500 D3F4 OUT (244), A:ENABLE DESTINATION 

24502 08 EX АР, АР’ 1GET BYTE BACK 

24502 12 LD (DE), А 1PUT IN DEST 

24504 15 INC DE : INCREMENT REGISTERS TO NEXT BYTE 
24505 23 INC HL 

24506 OB DEC BC :REDUCE COUNTER AND CHECK FOR ZERO 
24507 78 LD A, B 

24508 Bi OR C 

24509 20ЕВ JR NZ, LOOP 

24511 ЗААОЗС LD А, (24480) :1ENABLE DESTINATION BANK 
24514 D3F4 QUT (244), А 

24516 C9 RET 


NOTES: This program will only work between the home bank and 
another bank, not two different extra banks. DE must be the 
destination address in the extra bank and HL the source address 
in the home bank--generally they are the same address. BC is the 
number of bytes to transfer. Use normal lo/hi notation. 


The Basic of program 2, lines 9000-9200 asks for the bin name 
without suffix, loads it into the home bank, transfers it to the 
enabled extra bank and then saves a copy from the extra bank to 
disk with 1 to 4 asterisks in the name to indicate which bank it 
was saved from. In other words, it's very user friendly. 


This was the end of the article as originally presented. What 
follows is new. 
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ACTIVATING DUAL SCREEN MODES FOR THE HOME BANK AND OTHER BANKS 


If you followed the directions above it was quite an experience 
in bank switching of a different nature and, thanks to Aerco, 
not that difficult an exercise. And, more importantly, done 
without invoking the bank switching routines. All we did is do 
а few ІМв and OUTs. And, since we also saved our programs, we 
also kept our disk drives active. If you wanted to you could 
have also saved your programs to tape. Ву invoking the SAVE 
command your computer does some more OUT commands to shift to 
the EXROM in bank 254 but when it comes back it sets all the 
home chunks оп. This is why you have to do an OUT 244, 1 to get 
the jump changes in the Dock Chunk O to operate the disk drives 
again. This sort of romp to the EXROM bank and back was also not 
done with the bank switching routines. It's time to get fancy. 


What do we have to change in the above program to activate both 
Display screens in one of the other * video modes? We must be 
extremely careful as Aerco has rewritten some of the ROM. Let's 
do some brainstorming. I call it thinking out loud but, since 1 
have written it down for you to read I guess it’s thinking out 
loud on paper. 


We know we have to open Display File 2. Where is this located? 
If we don't know, where can we look to find out? Іп а Memory 
map. Where can we find that? If you have read the Intro book you 
would have known that anything that you want to know is found in 
the Appendixes of the User Manual as we practically lived out of 
it in that book. To the uninitiated it’s on раде 254. Dfile2, 
short for Display File 2, starts at 24576, the start of chunk $. 
While we are at it notice that in addition to Dfile1, chunk 2 
also contains the printer buffer where we were storing our home 
System variables when in another bank and the System variables. 
Since we wrote all the bank enabling code into and around the 
System variables table using areas that weren't being used, we 
serendipitously find we can leave it alone and don't have to 
change it. 


What do we have to move out of the way in chunk Z and where does 
it go? The machine stack and the ram-resident code, alias the 
function dispatcher and the bank switching routines, move to 
chunk 7 and the Machine code variables, ARSBUF and Channels move 
up а bit so that a basic program starts at 31488. This will all 
be done automatically for us by calling the Change Video routine 
in the EXROM. 


Will this hurt us? No, but since the machine stack is used by 
all the banks, we can no longer invoke chunk 7 in our extended 
banks. Our good old OUT 244, 241 will now have to be OUT 244, 
115. Our program length in these banks now drops to no longer 
than 24565. Well, as they say, you never get anything for 
nothing. What happens if а program runs beyond the 57544 mark of 
the start of chunk 7? 
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That last is ап interesting question. I found the answer Бу 
accident several years ago when I was trying to find out what 
waw written in the EXROM. 1 accidentally gave the computer a 
loop to transfer code from the EXROM to the upper portion of the 
home ROM that went at least 200 addresses beyond the 8171 
address of the last byte in the EXROM. The m/c program didn't 
hang up or anything but merely started reading from the home ROM 
when it ran out of EXROM. Therefore, at any one time there can 
only be one chunk O active, one chunk 1, one chunk 2 etc. to 7 
but it makes no difference to the computer in which bank each 
one is. Therefore if you did something crazy like OUT 244, 141 
activating just chunks О, 5 and 7 of the dock КАМ and then 
loaded a long Basic program, it would start loading at 26710 in 
the home bank and fill the rest of chunk Z and all of 4. As soon 
ая it hit chunk 5, it would shift to the dock bank and start 
putting Basic there. After chunk 5 of the dock bank was full, 
the computer would jump to chunk 6 of the home bank for the rest 
of the program. And the interesting thing is that it would run 
in that crazy format and put its Basic variables partly in chunk 
6 and when that was full, in chunk 7 of the dock bank. That is, 
it would run as long as you didn't change the format. Now, some 
crazy guy out there is going to have а light bulb turn on and 
say "Ah ha, if I...." but that is the fun in owning a 2068, 
isn't it? The answer to our question is that if we exceed 
address 57545 with our program in an extended bank and forgot to 
set RAMTOP we would find ourselves in the home bank. 


How full will chunk 7 be after the transfer? Down to roughly 
F700 or 63232 if we include the room for the UDG's. That leaves 
us nearly ©К for any routines we want to have common to all 
banks. If you peeked ahead to the next chapter, you will find 
that that is more than enough room for all the 64 column 
routines and is exactly where we are going to put them. Its also 
а great spot for the relocatable Aerco print driver routine. 


But what about the bank switching routines? They are moved up 
and down with errors in them and won't run if not corrected. 
Aerco wrote a routine upon bootup that corrects them but they 
don't stay correct once moved. Do we need to correct them? Are 
they ever used? Well, if you write your own code you can avoid 
using them. If you plan on using somebody else's code I doubt 
it. If you bought somebody else's program and they use it, the 
program should be friendly enough to make all the corrections 
before invoking the bank switching routines. Now, as +аг as 1 
know, a lot has been written about these bank switching routines 
but nobody has yet to use them. 


Do the Аегсо drives use the bank switching routines? No, we have 
Mscript which uses Dfile2 and the disk drives without the 
routines. As you will find out in the next chapter, none of the 
double screen modes is supported in Basic. Neither is the 
function dispatcher nor the bank switching routine supported in 
its high location in chunk 7 so even if we wanted to use the 
bank switching routines we would have to write routines for 
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them. 


Will the bank switching routines ever be used? I doubt it 
without rewriting some of the home ROM and unlocking some of the 
routines that are presently bypassed to error codes. Ever wonder 


why you got those "invalid color" errors? For more on the 
subject read the series of articles in Time Design by Wes 
Brozowski called "The Mystery of the Missing 253". It is not 


easy reading but will give you some idea of what Timex had in 
mind and then changed. One of these days someone will do exactly 
that but so far the best I've seen is correcting obvious errors, 
not unlocking the extra routines. 


So, other than having to be careful not to invoke chunk 7 in 
extra banks, and limiting both program and code to addresses 
under 57544, we should be okay. BUT not okay for Mscript or any 
other program that tries to use all of the memory for data. Not 
without modification to reduce those memory requirements and to 
make sure the code isn't located beyond 57344. I have heard they 
are working on a version of Frofile that uses 2 or more banks at 
the same time. It would be quite involved and would take the 
rewriting of the ROM routines that write to and retrieve from 
the Basic variables file at the very least. 


Rather than give the routine for changing video here and repeat 
it in modified form in the next chapter along with some of the 
support routines necessary to use it, I leave it up to the 
student to modify the routine for his/her own purposes. By 
itself it is almost useless. The screen is interlaced 64 column 
across but you are only writing to or clearing Dfilel from 
Basic. 


CHAPTER 4 64 AND 80 COLUMN MODES 


In the Introduction to 2068 Machine Code I gave you a routine to 
take the bank switching routines and the machine stack and move 
them up to chunk 7 of the home bank and put the user defined 
graphics below that and move other things out of the way to open 
the second display file. I also talked about what it would take 
to write to this double width screen either with standard width 
characters in the 64 column mode or 6 pixel wide characters of 
the 80 column mode. I also pointed out that both these modes 
were not supported from Basic and you had to write your own 
routines which I said were a bit beyond the ability of the 
beginning student so I gave no routines to write to the screen. 
This omission is corrected here. 


Before giving the routines, let's review exactly what happens in 
the dual 64 normal characters across screen. The two display 
files are put on your TV or monitor interlaced. Every even char- 
acter position belongs to display file 1 and every odd position 
to display file 2. In 64 mode, its easy аъ each screen position 
is still 8 pixels across but since the width of the screen is 
now 64 across, each character looks squeezed to half width on 
the screen. Since there are still only 24 lines on the full 
screen, the characters look the normal height. It’s the same 
type of screen you see when you use Mscript. 


64 COLUMN SCREEN 


The 64 column mode is easiest to understand so let's tackle that 
first and then see how we have to modify it to take care of the 
more complex 80-85 column screen. Why do I say 80-85 columns? 1+ 
you take a typical line of 64 characters you have 512 pixels. 
Divide that by 6 and you get 85.3 possible characters. 


We have some help as to what to do as the 2068 Technical Manual 
Gives us a set of routines to start interfacing to the 64 column 
mode in Appendix C-1. Unfortunately that part of your manual is 
almost impossible to read and even with the aid of а magnifying 
glass one can go blind and slightly insane trying to get it to 
run. Should you want to compare the routines listed below with 
those in the manual you will find that the manual does what іс 
called a "non-assembled code". You just can't use a hexadecimal 
code loader program and take the code numbers on the left and 
type them in as is. They advise us to assemble it at 57544 which 
is EOOO in hex. Certain lines in the assembly have quotes after 
them. That means that that line will change. The address given 
is typically listed as OOOC which is the amount of OFFSET from 
the start of the program. If we were assembling at EOOO that 
would be address EOOC which has to be converted to low byte 
first format, eg., OCOE. 
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The Technical Manual gives us several routines and and INPUT and 
ENTRY Table which allows interfacing to Basic. The other 
routines are: 


WRCH Write character whose code is іп DATAE or 
the A register. UDG and Standard graphic 
characters will print. 


WRSTR Write string whose code is in DATAB or the 
Я register. UDG and Std Graphics as above. 

SETCU Set cursor--equivalent to АТ and ТАВ as 
ENTER, DELETE and the  CURSOR keys do not 
work. 

CLRSC Clear screen-clears both screens 

SETAT Set attribute--input ink color to change 

SETMS Set mask--for over and inverse. Need SETCU 
to reset for over. 

GTCHR Det char at address specified 

GETAT Get the attribute 

GETCU Get the address of the cursor 

SETMD Set video mode--open/close D file 2 etc. 

SCRL Scroll 


All these routines have both Basic and Machine code entry points 
and we will demonstrate the use of both. This is a nice start in 
supporting a 64 column screen but if you think any of the normal 
Basic print-to-the-screen commands will write to both screens 
you are badly mistaken. One must constantly poke value from 
Basic and use USR calls with these programs. AND what still is 
not supported is LIST, COPY, INPUT, ІМКЕҮФ and SCREENS which 
will only work in their normal 1 screen mode, inputing, listing, 
copying and saving only to or from the first data file. There is 
some hope for people with Aerco Disk drives to get around some 
of these difficulties which we will discuss later. But first the 
routines. 


The extra variables to be set up for Basic and machine code 
are: 


57544 DATAB From Basic poke code of character to be 
printed or the name of the string to be 
printed. 

97551 LINE Basic Line being printed on (О to 23) 

57252 COLUMN Basic column for next character (О to 62). 

57261 ATTCTL Attribute. Entire screen is the same. 


Enter new ink here to change screen color. 


973569/70 GETCTL GET CONTROL. Internal format line and со1- 
umn of next print position. Noter Reverse of 
of basici line 25 is top line, 65 left colm. 


VLA 
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57380 VIMODE Video mode 6264 column: Oznormal. 

27:84/8 SCRCTL Scroll control. Starting line and line 
count, 

57589 BOTLN Bottom line +1. Results in auto scroll. 

57590 SCRLCT Scroll count. Number of lines to scroll -1. 

57591/2 CHTBL Address of CHARACTER TABLE in use. 

57395 LINLEN Linelength = 64 


57596/7 CURFOS Cursor position. Next print position. 
57598/9 DFADRS Display File Address. 
57400 MASKB Mask byte. Bit 2= Inverse on, Bit О = Over. 


57401 АТТВУТ Current attribute. Bright and Flash will 
not work in dual screen mode. 


37402 GTINDX 128. Subtract this from code of last char- 
acter of a string. 


57405/4 STRGCT String count. Holds remaining length of 
string yet to be printed. 


Many of the routines have error trapping already built in to 
Prevent trouble. For example, you cannot enter dual screen mode 
if you don’t have enough free memory remaining. Also the print- 
to-the-screen routines return errors by number in the ВС regist- 
er во that if you say PRINT USR Number you automatically get а 
print return when debugging routines. (This latter messes ир 
your routine as it prints О on screen 1 аз you return to Basic 
printing right over the dual screen.) 


А11 the vital variables have default values set Бу the SETMD 
routine which you can modify to suit once you have initialized 
the dual screen mode. The screen will be black on white and will 
start printing in the upper right corner of the screen with an 
automatic scroll of one line as you run out of screen. 


So without further ado, the routines set up to be inserted by 
your favorite assembler. (Use : or s аз your assembler re- 
quires). I used Zeus so told it to ORG at 57244 (ЕООО) and  DISF 
57544 and thus save the code at 49152 (C000). That gave me a 
nice even displacement to check addresses. Then I told it to 
MOVE "640.bin",49152,1302 to save to disk. Or, if you are lazy, 
send for a disk or tape of the routines listed in this book all 
recorded error free and ready for use. See the Preface for 
details. Then just enter CAT "64.bas", or LOAD "64" and start 
typing. Use capshifted break to stop. Enter List and take a look 
at the other routines. 
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DEFINITIONS 
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SCRSZ EQU 24: SCREEN SIZE IN LINES 
SCINIT EQU #1701: SCROLL CONTROL INIT 
CLINIT EQU #1800: CLEAR SCREEN INIT 


СНКБЕТ EQU 43COO: ROM CHAR TABLE - 256 
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GRPHST EQU ((GRPST)-4*100): STND GRAFHICS TABLE 


CHNGVID EQU #0ЕВЕ: ROUTINE IN EXROM 
RECLEN  EQU #1720: ROUTINE IN HOME ROM 


HREXPT EQU #FFs HOME ROM EXT SELECT PORT 
DKHSPT EQU #F4: HORIZONTAL SELECT REG PORT 


VARS EQU #5C4B: SYSTEM VARIABLES 
STKEND EQU #5С25 

UDG EQU #5C7B 

COORDS EQU #5C7D 

RAMTOP EQU #5CB2 

PRAMT EQU #5Св4 

VIDMOD EQU #5CC2 

PARAMS EQU #5CC3: (22747) 
DRIVES EQU #6840 

INSERTSZ EQU 47BOO - DRIVES 
MCVESZ EQU DRIVES - #6000 
DES7 EQU #FFFF - MOVESZ +#1 
FIX EQU DES7 - #6000 
FIXTBL EQU #1000 ` 


INPUTS AND ENTRIES 


97344 
37345 
57548 
57351 
572353 
57556 


57558 
57561 
$7362 
57565 
27366 
57509 
57371 
57374 
57377 
57580 
57581 
57584 


57586 


DTHER 


20 
C33DEO 
СЗЕСЕО 
0000 
С555Е1 
0018 


С<ЕЗЕ1 


С545Е 1 


VARIABLES 


DATAB DEFB 52 
WRCHRB JP WRCHO: ENTRY WRCHAR 


WRSTRB УР WRSTRO: ENTRY WRITE STRING 


LINCOL DEFW ©: SET CURSOR POSITION 


SETCUB JP SETCBO: ENTRY SET CURSOR POSN 


CLRCTL DEFW #1800: CLS CONTROL, 


1CLRCTL = START LINE NUMBER 


sCLRCTL + 1 = LINE CT 


CLRSCB JF CLRSBO :ENTRY FOR CLEAR SCREEN 


ATTCTL DEFB 56: BLACK ON WHITE 


SETATB JP SETABO: ENTRY TO SET ATTRIBUTE 
MSKCTL DEFB O:MASK CNTR BIT 2=INV, BIT ОжОУЕК 
SETMSB JF SETMBO: ENTRY TO SET INV OR OVER 


GETCTL DEFW O:GET CONTR FROM BASIC 


GTCHRE JF GTCHBO: ENTRY FOR GET CHAR 
GETATB JP GETABO: ENTRY FOR GET ATTR 


GETCUS JF GETCBO: ENTRY FOR GET CURSOR POSN 
VIMODE DEFB O:VIDMODE O=NORMAL 6264COL 
БЕТМОВ ӘР STMDBO: ENTRY TO SET VIDMODE 


SCRCTL DEFW #1701: SCROLL CONTROL 


: SCRCTL = STARTING LINE NUMBER 


: SCRCTL + 1=LINE COUNT 
SCRLB JP SCRLBO: ENTRY TO SCROLL 


№ 
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57589 


57590 
57591 
57595 
57595 
57576 
57598 
57400 
57401 
57402 
574032 


WRITE 


: HERE 
57405 


17 BOTLN DEFB 25: BOTTOM LINE +1 LINE AT WHICH 

: SCREEN IS CONSIDERED FULL. AUTO SCROLL IF SCRLCT <>O 
оо SCRLCT DEFB 1: SCROLL CT-1 + # OF TIMES AUTO 
OOSC CHTEL DEFW CHRSET: ADDR OF CHAR TB SCROLL 
95E3 GRTBL DEFW GRPHST: ADDR OF UDG TABLE 
40 L INLEN DEFE 64: LINE LENGTH 
4118 CURPOS DEFW #1841: CURSOR POSN INTERNAL 
0040 DFADRS DEFW #4000: CURRENT DISFAY ADDR 
оо MASKB DEFB О: MASK FOR CHAR 
28 АТТВУТ РЕРВ 56: CURRENT ATTR (BLACK ON WHITE) 
go GTINDX DEFB 128: INDEX ADJ CHCODE IN GETCHAR 
0000 STRGCT DEFW О: REMAINING CT FROM WRSTR WHEN 

r SCREEN FULL 

CHARACTER 
FROM BASIC TO DISPLAY CHAR IN DATAB 
ЗАООЕО WRCHO LD А, (DATAB) 


: DISPLAY CHAR IN DATAB 


57408 
57411 
57415 
37416 
57418 
57421 
57422 
57424 
57426 
57428 
57450 
57454 
57435 
57457 
57459 
97443 
57445 
57447 
57451 
57452 
57454 
57455 
57456 
57457 
57458 
57459 
57460 
57461 
57462 
57465 
57466 
57468 
57409 
57470 
57471 


CD8DE4 WRCHAR CALL LDPOSN: LD BC*CURFOS HL=DFADRS 
FE2O CP 52: TEST VALID RANGE 

DACZEO УР С, INVPAR 

FEAS CP 165 

D2C2EO JP NC, ТМУРАК 

c3 PUSH BC: SAVE CURSOR POSN 

FEBO CF 128: ASCII PRINTABLE? 

5815 JR С, WRCHR12 

РЕЗО СР 144: STD UDG CHAR? 

3809 JR C, WRCHR11 

ED4B7BSC LD BC, (UDG): DO UDG 

o3 DEC B 

0670 SUB 112: ADJUST FOR INDEX 

180C JR WRCH13 

EDABS1EO WRCH11 LD BC, (GRTBL): ADDR OF GRAPHICS TABLE 
0660 SUB 961 ADJUST FOR INDEX INTQ TABLE 
1804 JR WRCH17 

ED482FEO WRCH12 LD BC, (CHTBL): CHARACTER TABLE 
EB WRCH1S EX DE, HL 

2600 LD H, O 

OF LDL, A 

29 ADD HL, HL 

29 | ADD HL, HL 

29 ADD HL, HL 

o9 ADD HL, ЕС 

C1 POP BC 

EB EX DE, HL 

79 LD А, С: TEST IF END OF LINE 

3D DEC A 

SAXSEO LD А, (LINLEN) 

2005 JR NZ, WRCH14 

3C INC A: START OF NEW LINE 

os DEC B: ALSO BUMF B TO NEXT LINE 
4F LD C, ñ 

1801 JR МЕСН15 
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57473 
57474 
57475 
57476 
57479 


57480 
57481 
57482 
57485 
57487 
57488 
57490 
57491 
57492 
57493 
57494 
57495 
57497 
57498 
57499 
57500 
57501 
57502 
57505 
57504 
57505 
57506 
57507 
57508 
57509 
57511 
57512 
57515 
57514 
57515 
57517 
57519 
57520 
57522 
57525 
57525 
57526 
37528 
57529 
57550 
57553 
57555 
57557 
57538 
57540 
57542 
57544 
57545 


sC WRCH14 
B9 МЕСН15 
DS 

СССФЕО 

D1 
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INC A 

СР Сї TEST IF START OF LINE 
PUSH DE: TEST IF OFF SCREEN 
CALL Z, TVFULO 

POP DE 


:HERE TO PUT CHAR IN DFILE 


c5 WRCH2 
ES 

SASBEO 

O6FF 


1F WRCHS 


o8 WRCHŠ 


E1 WRCH7 


7C CCLEVN 


7C CCLODD 


CD85E4 WRCHXT 
OEOO GOODRET 
0600 ERRRET 
OEO1 ІМУРАК 


3E18 TVFULO 


PUSH BC: SAVE CUR FOSN 
PUSH HL: AND DFILE ADDR 
LD А, (MASKE) 

LD B, 255: ASSUME OVER ON 
ЕКА: TEST FOR OVER 

JR C, WRCHS 

INC B1 TURN OVER OFF 


RRA 
RRA: TEST FOR INV 
SBC А, А 


LD C, А: C-255 IF INV, ELSE O 
LD А, 8: COUNTER 

AND A: CLEAR FLAGS 

EX DE, HL 

EX AF, АЕ”: SAVE COUNTER 

LD А, (DE): GET OLD PIXEL ROW 
AND Bi ADD OVER, As255 IF OFF 
XOR (HL): ADD IN NEW PIXEL 

XOR С: INVERT IF ON 

LD (DE), А: PRINT IT 

EX AF, АР’: GET COUNTER BACK 
INC D: UPDATE POINTERS-NEXT PIXEL ROW 
INC HL 

DEC А 

JR NZ, WRCHS 

POP HL 

POP BC 

DEC C: ADJUST CUR РОЗМ 

LD A, C 

BIT О, А: EVEN OR ODD? 

JR NZ, CCLODD 

LD A, H 

OR 32 

LD H, A 

JR WCHXT 

LD A, H 

AND 223: RESET BIT 5 

LD H, A 

INC HL 

CALL STPOSN 

LD C, O: RET BC=O 

LD B, О: ENTER HERE WITH C <>0 
RET 

LD C, 1:RET BC=1 FOR INVALID PARAM 
JR ERRRET 

LD à, SCRSZ 

SUB B: А = LINE # 

LD D, А: SAVE IN D 
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МАЛ 
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57546 SA2DEO у LD А, (BOTLN): GET BOTTOM LINE 

57549 ВА СР D 

57550 0256Е4 JP NC, UPDPOSN: OK, RET TO WRITE CHAR 
: VIA UPDATE AND STORE POSN 

57555 ЗАЗЕЕО LD А, (SCRLCT): TEST SCROLL COUNT 

57550 3D DEC A 

57557 200B JR NZ, TVFUL1: AUTORSCROLL WITH COUNT 

57559 5Е01 LD А, 1 

57561 522ЕЕО LD (SCRLCT), А: RESET SCROLL CT 

57564 C1 РОР BC: DISCARD RETURN TO WRITE CHAR 

57565 С! РОР ВС 

57566 ОЕОЗ LD C, 3: RET BC=3 FOR SCREEN FULL 

37568 18DD JR ERRRET 

57570 522ЕЕО TVFUL 1 LD (SCRLCT), А 

57575 ED4B28E0 LD BC, (SCRCTL): GET STARTING LINE/CT 

57577 СУ5РЕ1 JF SCRLO 


WRITE STRING 


zs НЕКЕ FROM BASIC ENTRY TO WRITE CHARACTER STRING TO SCREEN 
1 STRING IDENTIFIER (CH.CODE) IN SYS VAR PARAMS АТ SCC3 


57580 3ACI5C WRSTRO LD А, (PARAMS): GETSTRING ID 


57585 E61F AND 31: MASK OFF UPPER BITS 
57585 F640 OR 64: STRING IDENTIFIER 
57587 57 LD D, А: SAVE IND 

57588 2А4В5С LD HL, (VARS): FIND STRING 
57591 7E WRSTR1 LD A, (HL) 

57592 E67F AND 127: TEST IF END OF VARS 
57594 2855 JR 2, NOSTRG: NO FIND RET ВС=2 
57596 ВА СР D: MATCH? 

57597 2808 JR Z, WRSTR2: FOUND 

57599 DS PUSH DE: SAVE STR ID 

57600 CD2017 CALL RECLEN: RET ADDR NEXT VAR IN DE 
57605 EB EX DE, HL: ADDR TO HL 

57604 D1 POP БЕ: RESTORE STR ID 

57005 1ВҒО JR WRSTR1 

57607 23 WRSTR2 INC HL1 GET LEN 

$7608 4E LD C, (HL) 

57609 23 INC HL 

$7610 46 LD B, (HL) 

57611 23 INC HL 

57612 78 LD А, В: TEST IF NUL 

57615 B1 OR C 

57614 C8 RET Z1 RET IF NULL 

:ЕМТКҮ FROM М/С W ADDRESS OF CHAR.CODE STRING IN HL, LEN IN BC 
57615 7E WRSTRG LD А, (HL): GET CODE 

57616 ES PUSH HL: SAVE ADDR 

$7617 CS FUSH BC: SAVE LEN 

37618 CD4OEO CALL WRCHAR 

57621 79 LD А, В: TEST IF GOOD 

57622 BO OR C 

57625 2009 ЈК NZ, WRSTR1: EXIT IF INVALID 


57625 С! WRSTR3 POP BC: COUNT 
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$7626 
57627 
57628 
57629 
57630 
37631 
57653 
57634 
37635 
57657 
57659 
57640 
57645 
57644 
57646 
57648 
57649 
57651 


Е1 РОР HL: ADDR 

25 INC HL: NEXT CHAR 

OB DEC ВС: ADJ CT 

78 LD A, B: DONE? 

B1 OR C 

20EE JR NZ, WRSTRG: WRITE NEXT CHAR 
СУ RET: BC«O 

79 WRSTX1 LD A, C: SAVE ERROR 

FEOL CP i: TEST IF UNRECOGNISABLE CODE 
28F2 JR Z, WRSTRS 

E1 POP HL: REMAINING COUNT TO HL 
225ВЕО LD (STRGCT), HL: STORE 

El POP HL: ADDR 

OEOS LD C, 3: RET BC=3 

0600 WRSTX2 LD B, о 

C9 RET 

OEO2 NOSTRG LDC, 2 

18F9 JR WRSTX2 


POSITION CONTROL 


s HERE FOR BASIC ENTRY. PARAMETERS IN LINCOL 

57055 ED4BO7EO SETCBO LD BC, (LINCOL) 

: HERE IF LINCOL IN BC 

57657 CD3AE4 SETCUR CALL Т5ТРАК 

97660 CD4BE4 CALL CONVFM: CONVERT INTERNAL FORMAT 
57663 CDS6E4 : CALL UPDPOSN: UPDATE POSN 

57666 CSBDEO JP GOODRET 

SCROLL 

tHERE FROM BASIC TO SCROLL SCREEN 

57669 EDAB28EO SCRLBO LD BC, (SCRCTL): GET CONTROL INFO 
: НЕКЕ WITH CONTROL IN BC: В=# OF LINES, CeSTARTING LINE & 
57675 78 SCROL.L. LD А, B: TEST VALIDITY 

37674 07 AND А 

57675 САС2ЕО JP 7, INVPAR: ERR IF COUNT = О 
57678 81 ADD А, С 

$7679 FEO1 СР 1: ERR IF B*Cz1 

$7681 DAC2EO JP C, INVPAR 

37684 FE19 СР 25: ERR IF В+С>24 

57686 D2C2bEO JP NC, INVPAR 

57689 CDSFE1 CALL SCRLO: DO IT 

27692 CSBDEO JF GOODRET: RET BCzO 

57695 C3 SCRLO PUSH BC 

$7696 3E18 LD А, 24: GET STARTING LINE INT FORMAT 
57698 91 SUB C 

27699 47 LD B, А 

57700 ЗАЗЗЕО LD А, (LINLEN) 

57705 5С INC А: COL О 

27704 4F LD C, ñ 

$7709 CD74E4 CALL LNBO 

57708 C1 POP BC: ORIG BC 

57709 CS PUSH ВС: SAVE AGAIN 
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57710 7D TESTAO LD А, L: TEST IF START OF BLOCK 
57711 A7 AND A 

57712 2851 JR Z,STBLK 

57714 07 RLCA 

57715 07 RLCA 

57716 07 RLCA 

97717 4F LD С, A: GET # OF LINES 
97718 3E08 LD A, 8 

57720 91 SUB C 

57721 B8 CP B: TEST AGAINST TOTAL LINES 
57722 ТӨЗЕ JR С, GRBELK: TOTAL >BLOCK 
57724 78 INSDBLK LD A, B 

$7725 0600 LD B, O: REMAINING COUNT 
57727 CS PUSH BC 

37728 47 LOOF LD B, А: B=LINES THIS BLOCK 
57729 ОЕОВ LD C, 8: SCAN LINES 

57731 78 LOOFO LD А, B 

57752 CS PUSH BC 

57755 OF RRCA 

57754 OF RRCA 

57735 OF RRCA: CALC # OF BYTES 

57756 4F LD C, A 

57737 0600 LD В, O: BC-72X4* ОР LINES 
57759 ЕВ LOOP 1 EX DE, HL 

$7740 21EOFF LD HL,*FFEO: GET ADDR OF PREV LINE 
57745 19 ADD HL, DE 

$7744 EB EX DE, HL: TO DE 

57745 CS PUSH BCt SAVE COUNT 

57746 ES FUSH HL: SAVE ADDR 

57747 EDBO LDIR: DO A LINE 

57749 E1 I POF HL 

57750 C1 POP BC 

57751 7C LD А, H 

57752 СВЕ BIT 5, A: IS ІТ DF1? 

57754 2005 JR NZ, NXTSC 

57756 Е620 OR $2 

57758 67 LD H, ñ: DO DF2 

57759 18EA JR LOOP 1 

97761 E6DF NXTSC AND 225: BACK TO DFi 

57765 67 LD H. А 

57764 24 INC H: NEXT SCAN LINE 

57765 C1 POP BC: SCAN COUNT 

57766 OD DEC C 

57767 20РА JR NZ, LOOPO: MORE SCANS 
57769 Сі РОР BC: RESIDUAL LINE COUNT 
57770 78 LD а, B 

57771 A7 AND А 

57772 2804 JR 2, SCRLXT: DONE 

57774 2E00 LD L, O1: START OF NEXT BLOCK 
57776 188C JR TESTAO 

57778 C1 SCRLXT РОР BC: ORIG BC 

37779 79 LD A, C: STARTING LINE 
57780 BO ADD А, В: ADD # OF LINES MOVED 


57781 3D DEC А: LAST LINE SCROLLED 
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CÀ 
4F LD C, А 
0601 LD B, 1: CLEAR LINE 1 
1852 JR CLRSCO: CLEAR VACATED LINE AND RET 
4F GRBLK LD C, А 
78 LD A, B 
91 SUB С: ADJ TOT LN CT BY # LNS THIS BLE 
47 LD B, А 
cs PUSH BC 
79 LD A, С: LOAD # OF LN THIS BLOCK 
18EBD JR LOOP . 
05 STBLK DEC B: DEC LINE CT 
CS PUSH BC 
OEOS LD C, 8 
c3 STBLKO PUSH ВС: SAVE COUNT 
EB STBLK1 EX DE, HL 
21ЕОҒВ LD HL, ФЕОҒВ 
19 ADD HL, DE 
EB EX DE, HL: ADDRS OF PREV LINE 
012000 LD BC, 32 
ES PUSH HL 
EDBO LDIR: 00 MOVE 
E1 FOP HL 
7C LD A, H 
CBoF БІТ 5, A: DF2? 
2008 JR NZ, STBLK2 Ve 
F620 OR 22 
67 LD H, А 
18E9 JR STBLK1 
ESDF STBLK2 AND 223: BACK TO DFi 
&7 LD H, A 
24 INC H: NEXT SCAN LINE 
C1 POP BC 
ор DEC C 
2OEO JR NZ, STBLKO 
C1 POP BC: REMAINING LINE COUNT 
78 LD А, B 
A7 AND A 
28C6 JR Z, SCRLXT 
1120F8 LD DE, «F820 
19 ADD HL, DE 
С5<ЕЕ1 JP TESTAO: BC=LINE СТ, HL=DF ADDR 
SCREEN 
FROM BASIC ENTRY TO CLEAR SCREEN 
EDABOCEO CLRSBO LD BC, (CLRCTL): GET CONTROL INFO 
IF BC=LINE COUNT AND STARTING LINE # 
78 CLRSCN LD ^, B 
A7 AND à: TEST VALIDITY 
CAC2bEO JP Z, INVPAR 
81 ADD А, C — 
FEO1 CP 1 
DACZEO JP С, INVPAR 
FE19 CP 25 
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57860 D2C2EO JR NC, INVPAR 
57863 CDODE2 CALL CLRSCO: DO IT 
57866 C3BDEO JP GOODRET: BC=O 
57869 CS CLRSCO PUSH BC 

57870 5Е18 LD А, 24 

57872 91 SUB C 

57873 47 LD B, А 

57874 5АЗЗЕО LD A, (LINLEN) 

57877 3C INC А: SET TO COL O 
57878 AF LD C, A 

57879 Ср74Е4 CALL LNBO 

57882 50 LD D, B 

57885 59 LD E, С: SAVE POSN 
57884 C1 POP BC: ORIG BC 
57885 05 PUSH DE 

57886 7D CLRSC1 LD А, L: GET # OF LINES THIS BLOCK 
57887 07 RLCA 

57888 07 RLCA 

57889 07 RLCA 

57890 АҒ LD C, А 

57891 ЗЕОВ LD A, 8: COUNT 

57893 91 SUB C 

57894 B8 CP B 

57895 85р JR C, CLRSC7 

57897 78 CLRSC2 LD à, B: # FO LINES 
57898 0600 LD B, О: REMAINING LINES 
57900 CS PUSH BC 

$7901 47 CLRSC3 LD B, A 

57902 ОЕОВ LD C, 8 

57904 78 CLRSC4 LD A, B 

57905 C5 PUSH BC 

57906 E607 AND 7 

57908 OF RRCA 

57909 ОҒ RRCA 

57910 OF RRCA 

57911 АҒ LD C, ñ: BC=324# OF LINES 
57912 0600 LD B, O: C=O IF 256 FOR 8 LINES 
57914 OD DEC C 

57915 С5 CLRSCS PUSH BC 

57916 Е5 PUSH HL 

57917 54 LD D, H 

57918 5D LD E, L ^ 

57919 3600 LD (HL), O: CLEAR DF1 
57921 13 INC DE 

57922 EDBO LDIR 

57924 Е! POP HL 

57925 C1 POP BC 

57926 7C LD A, H 

57927 CBOF BIT 5, А 

57929 2005 JR NZ, CLRSC& 

57951 F620 OR 321 DO DF2 

57933 67 LD H, А 

57934 18EB JR CLRSC5 


57936 E6DF CLRSCó AND 223 
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57938 67 LD H, A 

57959 24 INC H 

57940 C1 РОР BC 

57941 OD DEC C 

57942 2008 JR NZ, CLRSCA 

57944 C1 POP BC: TOTAL LINE COUNT 

57945 78 LD A, B 

57946 А7 AND А 

57947 2805 JR Z, CLRXT 

57949 2ЕОО LD L, О: HL-START OF NEXT BLOCK 

57951 СЗ1ЕЕ2 JP CLRSCi: B-REMAINING LINE COUNT 

57954 C1 CLRSXT РОР BC: POSITION 

57955 С556Е4 JF UPDPOSNi RET VIA UPDATE & ST POSN 

57958 4Е CLRSC7 LDC, А: SAVE # LINES THIS BLOCK 

57959 78 LD ñ, B 

57960 91 SUB C: ADJ LINE COUNT 

57961 47 LD B, А 

57962 С5 PUSH BC: REMAINING LINE COUNT 

57965 79 LD А, C: REMAINING LINE СТ 

57964 18ВЕ JR CLRSC3 

ATTRIBUTE CONTROL 

:НЕКЕ FROM BASIC ENTRY TO SET ATTRIBUTE 

57966 SA11E1  SETABO 1р А, (ATTCTL): GET CONTROL INFO _ 

(НЕКЕ IF ATTR BYTE IN А hs 

57969 E607 SETATT АМО 7: GET INK 

57971 4F LD C, Ar SAVE INC 

57972 SAC2SC LD A, (VIDMOD): TEST IF DF2 OPEN 

57975 A7 AND А 

57976 САС2Е0 JP 2, INVPAR: INVALID IF DF2 NOT OPEN 

57979 79 LD A, C 

57980 17 RLA 

57981 17 RLA 

57982 17 RLA 

57983 F5 PUSH AF: SAVE ROTATED VALUE 

57984 F606 OR 6: SET HORIZ WRITE CODE 

57986 47 LD B, А: VALUE 

57987 DBFF IN A, (HREXPT) 

57989 E&CO AND 192: SAVE BITS é & 7 

57991 BO OR В: SET VIDMODE 

$7992 DIFF QUT (HREXPT), А 

57994 F440 OR 64 

57996 52С25С LD (VIDMOD), А 

57999 F1 POP AF 

58000 2F CFL: GET COMPLEMENTARY PAPER 

58001 B1 QR C: ADD INK 

58002 5229ЕО LD (ATTBYT), А: SAVE IT 

58005 C3BDEO JP GOODRET: BC=O 

SET MASK V 


:НЕКЕ FROM BASIC ENTRY TO SET MASK 


58008 


SA1SEO SETMBO 


sENTRY WITH MASK IN A 


LD A, (MSKCTL) 
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38011 
$8014 


525ВЕО 
CSBDEO 


SETMSK 


GET ROUTINES 
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LD (MASKB),A 
ЭР GODDRET 


: НЕКЕ FROM BASIC ENTRY TO GET CHARACTER 
: (RETURNS CODE FOR CHARACTER AT POSITION IN GETCTL) 


$8017 
: HERE 
58021 
58024 
58027 
58050 
58054 
58056 
58038 
38041 
$8042 
58045 
58044 
58045 
58046 
58047 
58048 
58050 
58051 
58054 
58056 
58058 
58059 
28061 
58062 
28063 
58065 
58066 
58067 
58069 
58070 
58071 
58072 
58073 
58074 
28076 
1 HERE 


s (5Р+2) «СНАК IN DF, 


58078 


EDAB19EO GTCHBO LD BC, (GETCTL): GET CONTROL INFO 
IF CONTROL IN BC 

CDSAE4 GTCHAR CALL TSTFAR: TEST PARAMETERS 
CD4BE4 CALL CONVFM: CONVERT TO INT FORMAT 
CDSBE4 CALL CALCPOS: GET DFILE ADDR 
EDSB2FEO LD DE, (CHTBL): CHAR TABLE 

0660 LD B, 96: % OF PRINTABLE CHARS 
ЗЕВО LD А, 128: SET ADJ INDEX 

525АЕО GTCH1 LD (GTINDX), A 

14 INC D: ADJ TO START OF TABLE 

ЕВ EX DE, HL: ТО HL 

CS GTCH2 PUSH BC: SAVE COUNT 

DS PUSH DE: SAVE DF ADDR 

ES PUSH HL: SAVE ADDR CHAR TABLE 
1A LD A, (DE): SCAN ROW FROM DF 
AE XOR (HL): TEST AGAINST CHAR SET 
2810 JR 2, GTCHZ: MATCH 

FS PUSH AF 

ЗАЗАЕО LD А, (GTINDX) 

РЕЗО СР 144: STANDARD GRAPHIC? 

200$ JR NZ, GTCH23 

F1 POP AF 

1827 JR GTCH4: DON'T TEST INVERSE 

F1 GTCH23 POP AF 

3c INC А: TEST INVERSE 

2923 JR NZ, GTCH4: OFF 

3D DEC A: A =1 FOR INVERSE 

4F GTCH3 LD C, At C=O FOR MATCH, -1 FOR INVERSE 
0607 LD B, 7 

14 GTCH31 INC D: NEXT SCAN IN DF 

23 INC HL: NEXT CHAR BYTE 

1A LD A, (DE) 

AE XOR (HL) 

a9 XOR C 

2018 JR NZ, GTCH4: NO MATCH 

10F7 DJNZ GTCH31: NEXT SCAN 

IF MATCH WITH (ӨР) =СНАК IN CHAR SET 


79 LD А, 
C1 POP BC 
C1 РОР BC 
C1 POP BC 
4F LD C, 
SASAEO LD A, 
90 SUB В: 
ҒЕ2О СР 524 
2005 JR NZ, 


С: 


1 
A: 


(5Р+5) CHAR COUNT 


А=-1 IF MATCH ON INVERSE 


CLEAR STACK 
B-COUNT C=-1 IF MATCH ON INV 


(GTINDX): ADJ CHAR CODE 
А-СНАК CODE 

SPACE? 

GTCHS2 
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GTCH32 


GTCH4 


58107 10BE 


58117 EDSBS1EO 
98121 0610 
58125 SE9O 
58125 1847 
58127 РЕЗО 
58129 200B 
58151 EDSB7BSC 


GTCHS 


58142 48 
98143 AF 
58144 C9 


GTCH6 


DET ATTR BYTE 
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INC C: INVERSE SFACE? 

JR NZ, GTCH32 

LD А, 142: SET CODE FOR GRAPHIC BLOCK 
LD C, А 

LD B, O 

RET: CHAR CODE IN А AND BC 

POP HL: HERE WHEN NO MATCH 

LD DE, 8: LOOK AT NEXT CHAR IN SET 
ADD HL. DE 

POP DE: DFILE ADDR 

POF BC: CHAR COUNT 

DJNZ GTCH2: LOOK AGAIN 


EX DE, HL: DFILE ADDR TO HL 

LD А, (GTINDX) 

СР 128: STANDARD CHAR? 

JR NZ, GTCHS: TRY GRAPHICS 

LD DE, (GRTBL): STD GRAFHIC TABLE 

LD B, 16: # OF ENTRIES 

LD А, 1441 INDEX 

JR GTCH1 

СР 144: STD GRAPHIC? 

JR NZ, GTCH6: DONE IF NOT 

LD DE, (UDG): TRY UDG GRAPHIC | 
DEC D: ADJ START NA 
LD B, 21: # OF ENTRIES : 
LD А, 165: INDEX 

JR GTCH1 

LD C, ВЕ HERE WHEN NO MATCH ANYWHERE 

ХОК А: SET BC & Azo 

RET 


2МОТЕ THAT IN 64 COL MODE ALL SCREEN POSNS HAVE SAME ATTR 
s THERE NOT NECESSARY TO USE GETCTL POSITION PARAM 
1HERE FROM BASIC ENTRY TO GET ATTR 


58145 XAS3SSEO 
58148 АҒ 
58149 0600 
58151 С9 


GETATTR 


GET CURSOR POSITION 


: HERE FROM BASIC ENTRY 
58152 Ерав54Е0 GETCBO 
58156 CDABEO 

58159 SASSEO 

98162 B9 

58163 200B 

58165 OEOO 

$8167 78 

58168 SC 

58169 47 


LD А, (ATTRBYTE): GET ATTR BYTE 
LD C, ñ: SAVE INC 

LD B, O 

RET 


LD BC, (CURFOS): GET INTERNAL POSN 
CALL CONVFM: CONVERT TO USER FORMAT 

LD А, (LINLEN) 

CP C: END OF LISTING? 

JR NZ, бЕТСІ: NO | 
LD С, 0: START OF NEXT LINE — 
LD А, B 

INC А: BUMP TO NEXT LINE 

LD B, А 


үт 
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$8170 FE18 CF 
58172 3802 JR 
58174 0617 LD 
58176 Ер4507Е0 GETC1 LD 
58180 C9 RET: 


VIDEO MODE CONTROL 


2068 Machine Code 


241 OFF SCREEN? 

C, GETC1: NO 

B, 25: FOSN ON BOTTOM LINE 
(LINCOL), BC: SAVE 

VALUE ALSO IN ЕС 


sHERE FROM BASIC ENTRY WITH MODE IN VIMODE 


58181 3SA24EO STMDBO 
3НЕКЕ IF VIDMODE IN А 
58184 A7 SETMODE 
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58185 
58187 
58189 
58192 
58195 
58198 
58200 
58203 
58205 
58208 
58210 
58215 
58216 
58219 
58220 
58225 
5822 

58229 
58252 
58235 


58238 


s INITIALIZE PARAMETERS 


58241 
58244 
58247 
58250 
58252 
58256 
58259 
58261 
58262 
58265 
58266 
58268 
58269 
280272 
58275 
28278 
58279 
58285 
58284 
28287 


284A 
ҒЕов 
С2С2ЕО 
210118 
2228ЕО 
ЗЕ17 
$220ЕО 
3EO1 


$200ЕО 
5207ЕО 
S208E0 
5215ЕО 
5219ЕО 
521АЕО 
ЗЕОФ 


Ер5ВозеС 
19 
DAF6ES 
EDSBB25C 


SETMD1 


LD A, (VIMODE) 
AND А 

JR Z, SETMDi: TEST VALIDITY 

СР 6 

JP NZ, INVPAR 

LD HL, SCINIT: INITIALIZE PARAMETERS 
LD (SCRCTL), HL: SCROLL CONTROL 

LD A, 23 


LD (BOTLN), А: 


LD A, 


LD (SCRLCT), A: 


LD а, 


LD (LINLEN), Ar 


LD HL, 


LD (CLRCTL), 


ХОК A: 


BOTTOM LINE 

1 

SCROLL COUNT 
64 

LINE LENGTH 
CLINIT 
HL: 
SET Ажо 


CLEAR SCREEN CONTROL 


LD (MASKE), A 


LD (STRGCT), А: 
LD (STRGCT+1), А: 


LD HL, 


WRITE STRING REMAINING 
COUNT 


CHRSET: STD CHAR TABLE 


LD (CHTBL), HL 


LD HL, 


GRPHST: STD GRAPHIC SET 
LD (GRTBL), HL 
LD (DATAB), ñ: DATA BYTE 
COLUMN 


LD (LINCOL), А: 
LD (LINCOL+1) A: 
LD (MSKCTLD, A: 
LD (GETCTL), 
LD (GETCTL+1), А: 


LD A, 
LD B, 
LD A, 
AND A: 
JR NZ, 
OR B: 
JP Z, 
LD HL, 
LD DE, 


ADD HL, DE: 


LD DE, 


ADD HL, DE: 


JP C, 
LD DE, 


LINE 
MASK CONTROL 
А: GET COLUMN 
GET LINE 
6 
A 
(VIDMODE) 
SET CURRENT MODE 
SETMD2 
CURRENT MODE © TEST IF NEW O 
GOODRET: RET BC-O 
INSERTSZ 
MOVESZ 
TOTAL ROOM NEEDED 
(STKEND) 
ADD MEMORY IN USE 
EXTNRM: NOT ENOUGH MEMORY 
{РАМТОР ) 
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58291 
58292 
58294 
58297 
58500 
58501 
58304 
58505 
358306 
58509 
58512 
58313 
58514 
58517 
58519 
58322 
58524 
58325 
58526 
58:28 
38350 
58332 
58553 
58556 
58559 
58542 
58545 
58544 
58346 
58549 
58552 
58555 
28358 
58560 


a7 
EDS2 
D2F6E3 
CD21E4 


5259Е0 
5211Е0 
ЗАЗЗЕО 
3c 

4F 
0618 
210000 
227D5C 
CDS6E4 
CZBDEO 
OEO2 
CSBFEO 
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SETMD2 


UPDATE 


SXT4 


UPDT1 


EXTNRM 


INTERNAL SUBROUTINES 


28363 
58564 
58566 
58368 
58270 
58572 
58574 
58575 
58576 
58578 
58579 
58581 
58383 
58384 
58586 
58587 
58588 


aF 
CB47 
2016 
FEBO 
2810 
CB7F 
со 


GETVAL 


LA 
AND А 
SBC HL, DE 
JP NC, EXTNRM: NOT ENOUGH MEMORY 
CALL ENBLEXT: ENABLE ROM EXT 
LD A, В: MODE TO А 
CALL GETVAL: H/W VAL TO B, VIDMOD TO C 
PUSH BC: SAVE 
LD А, B 
CALL CHNGVID 
CALL ENBLHOME 
FOP BC 
LD А, C 
LD (VIDMODE), А: UPDATE VIDMODE 
BIT &, A: UPDATE SYSVARS BASED ON MODE 
JP Z, GOODRET: DONE IF MODE o 


-LD A, 195: 64/80 COL MODE 


OR B: STORE ATTR BYTE BASED ON INK 

CFL 

SRL В 

SRL B 

SRL B 

OR B 

LD (АТТВУТ), А: ATTRIBUTE BYTE 

LD (АТТСТЬ), А: BASIC PARAMETER 

LD А, (LINLEN) NP 
INC A ' 
LD C, А: COLUMN LEN 

LD B, 24 

LD HL, SCRSZ: ВС= O, HOME POSN 

LD (COORDS), HL: INIT PLOT FOSN 

CALL UPDPOSN: UPDATE & STORE HOME POSN 

JF GOODRET 

LD C, 2 

JP ERRRET 


LD C, А 

BIT O, А 

JR NZ, TSTO1 

СР 128 

JR Z, SETO 

BIT 7, A 

RET NZ 

LD B, A 

СР 2 

RET 2 

AND 198 

XOR 6 

RET NZ | 
LD А, 64 — 
OR C 

LD C, А 

XOR А 
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58389 C? RET 

58590 FEO1 TSTO1 CP 1 

58592 CO RET NZ 

58295 0601 LD B, 1 

58595 oEBi1 LD С. 129 

58597 C9 RET 

58598 АР SETO XOR A 

58399 47 LD B, А 

58400 C9 RET 

1ROUTINE TO ENABLE CHUNK © IN EXROM TO ACCESS CHNGVID ROUTINE 
58401 FS ЕМБІ ЕХТ PUSH АҒ 

58402 DBFF IN А, (HREXFT) 
58404 F680 OR 128 

$8406 DIFF OUT (HREXPT), А 
58408 ЗЕОЗ LD A, 5 

58410 D3F4 OUT (DEMSFT), А 
58412 F1 POP АЕ 

58413 C9 RET 

58414 FS ENBLHOME PUSH AF 

58415 AF XOR A: SET Azo 
58416 D3F4 OUT (DEMSPT), A 
58418 DEFF IN A, (HREXFT) 
58420 E63F AND 63 

58422 DIFF OUT (HREXFTO, A 
58424 F1 РОР АҒ 

58425 С9 КЕТ 

TEST PARAMETER VALIDITY 

58426 5Е17 TSTPAR LD А, 23 

58428 B8 CP B 

58429 5004 JR МС, Т5ТРА! 
58431 F1 PARERR POP AF 

58452 CSC2EO JP INVFAR 

58455 ЗАЗЗЕ TSTPR1 LD A, (LINLEN) 
58458 ЗС | ОЕС А 

$8459 B9 СР С: TEST COL >65 
58440 38F5 JR C, FARERR 
$8442 C9 RET 


CONVERT FORMAT 


zı CONVERT LINE/COL FROM USER TO INTERNAL FORMAT AND BACK 
: USER FORMAT LINES 0-23; COL 0-63 


z INTERNAL FORMAT LINES 24-1 COL 65-2 


58443 
58446 
58447 
58448 
58449 
58451 
58452 
58453 


5АЗЗЕО 
3C 

91 

4F 
3E18 
90 

47 

C9 


СОМУЕМ 


(COL 1 = END OF LINE) 
LD А, (LINLEN) 
INC ñ 

SUB C 

LD C, А 

LD А, 24 

SUB B 

LD B, А 

RET 
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UPDATE POSITION 


sz ENTER HERE WITH BC9SLINE/COL IN INTERNAL FORMAT 
$8454 CDSBE4 UPDFOSN CALL CALPOSN: CALCULATE POSITION 
58457 182A JR STPOSN: STORE UFDATE AND БЕТ 


CALCULATE POSITON 
sROUTINE TO CALCULATE POSITION IN DISPLAY FILE 


s RETURNS ADDR IN HL: PRESERVES LINE/COL IN BC 
58459 CD74E4 CALCPOS CALL LNEO: GET DISFLAY FILE ADDR 


98462 5А55ЕО LD А, (LINLEN): TEST WHICH БЕГЕ 
58465 5С INC А 

58466 91 SUB C 

98467 CB47 БІТ O, А 

58469 2806 JR Z, CALCP1 

58471 FS PUSH АҒ 

58472 3E20 LD а, 52 

58474 84 OR Н: IN DF2 

58475 67 LDH, A 

58476 F1 РОР АР 

38477 n7 CALCP 1 AND A 

58478 1F RRA: COL/2 IS FOSN IN DFILE 
58479 SF LD E, A 

98480 1600 LD D, O 

98482 19 ADD HL, DE 

58485 C9 RET 

:GET DISPLAY FILE ADDR FOR START OF LINE IN B 
59484 3E18 LNBO LD А, SCRSZ 

58486 90 SUB B 

58487 57 LD D, A 

$8488 OF RRCA 

28489 OF RRCA 

38490 OF КАСА 

58491 E6OEO AND 224 

58495 ФЕ LD L, ñ 

58494 7А LD а, D 

58495 E618 AND 24 

58497 F640 OR 64 

$8499 67 LD H, A 

58500 C9 RET 


STORE CURSOR POSITION 


58501 ED4324E0 STPOSN LD (CURFOS), А 
58505 2A36E0 LD (DFADRS), HL 
58508 C9 RET 


LOAD CURSOR POSITION 
58509 ED4B34E0 LDFOSN LD BC, (CURFOS) 


58515 2АЗФЕО LD HL, (DFADRS) 
58516 C9 RET 
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GRAPHICS CHARACTER SET 


58517 00000000 GRPST DEFB 0,0,0,0,0,0,0,01 CODE 128 
58521 00000000 

58525 OF OF OF OF OOOOOOOO DEFB 15,15,15,1%,0,0,0,0: CODE 129 
58555 FOFOFOFOOO0000000 DEFB 240,240,240,240,0,0,0,0: CODE 1: 
58541 ҒҒҒЕҒҒЕҒОООООООО DEFB 255,255,255,255,0,0,0,0: CODE 1 
28549 OO00000000FOFOFOF DEFB 0,0,0,0,15,15,15,15: CODE 152 
38557 OFOFOFOFOFOFOFOF DEFB 15,15,15,15,15,15,15,15: CODE 155 
58565 FOFOFOFOOFOFOFOF DEFB 240,240,240,240,15,15,15,15: 154 
58575 FFFFFFFFOFOFOFOF DEFB 255,255,255,255,15,15,15,15: 125 
28581 OO000000FOFOFOFO DEFB 0,0,0,0,240,240,240,2401 CODE 136 
58589 OFOFOFOFFOFOFOFO DEFB 15,15,15,15,240,240,240,240: 157 
58597 FOFOFOFOFOFOFOFO DEFB 240,240,240,240,240,240,240,240 
58605 FFFFFFFFFOFOFOFO DEFB 255,255,255,255,240,240,240,240 
58615 OO000000FFFFFFFF DEFB 0,0,0,0,255,255,255,255: CODE 140 
38621 OFOFOFOFFFFFFFFF DEFE 15,15,15,15,255,255,255,255; 141 
58629 FOFOFOFOFFFFFFFF DEFB 240,240,240,240,255,255,255,255 
58657 FFFFFFFFFFFFFFFF DEFB 255, 255, 255, 255, 285, 255, 255, 255 


58644 LAST BYTE USED 


Now that we have the code all we need is some Basic to enter and 
run it. This is just a demo type program and not to be 
interpreted as a final work of art or computering expertise. 


5 CLEAR 57545: САТ "640.BIN", 57344,1302 
10 POKE 57580,6: RANDOMIZE USR 57581: REM SETMD 
20 РОК К = 1 TO 2040 
ЗО РОКЕ 57344, PEEK 23560 
40 RANDOMIZE USR 57345: REM WRCH 
50 PAUSE О 
60 NEXT К 
70 RANDOMIZE USR 57386: REM SCROLL 
80 GOTO 20 
100 RANDOMIZE USR 573581 REM CLRSC 
120 STOP 
150 LET A$ = "When in the course of human events it becomes 
necessary..." 
155 РОКЕ 22747, CODE "А" 
140 RANDOMIZE USR 57348: КЕМ WRSTR 
145 STOF 
150 REM INVERSE 
155 POKE 37365,4: RANDOMIZE USR 573621 RANDOMIZE USR 57358: 
GOTO 20 
157 REM TO TURN INVERSE OFF РОКЕ 57365,0 IN LINE 155 AND 
REPEAT 
499 STOF 
500 POKE 57280,0: RANDOMIZE USR 27381: КЕМ BACK TO SINGLE 
SCREEN 


Save this program ав "64", Running it will automatically set ир 
the 64 column mode and put you into а type-to-the-screen loop 
which demonstrates the basic use of WRCH routine. It's a little 
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disconcerting not to have a cursor character to show you where 
you are on the screen. 


Flease note that only characters with codes in the range 2 to 
122 will be printed. That means that the return key, the cursor 
keys and the delete key don't work. That hardly makes for a 
useable routine. 


Students who have the Introduction to 2068 Machine Code .will 
note a certain similarity between the WRCH code and that of the 
main print loop used as a demo of a screen writing routine and 
given in Appendix B. First there is a sort characters routine 
followed by a find character address routine and finally print- 
ing the character to the screen after checking for over and 
inverse. WRCH does not use the "design standard graphics from 
their code number" routine of the ROM but instead uses a table 
of graphic pixels. There is a good reason for this in that the 
GETCH routine, which compares pixel lines in the Dfiles to that 
in a table would need a graphic character pixel table for com- 
parison purposes. 0+ course we don't have to worry about attri- 
butes ак they are all the same. What is missing in WRCH is the 
activating of screen printing tokens that were added to the 
Intro routine. 


Line 70 uses the SCROLL routine from Basic to scroll both 
screens up one line and as such is a bit more complex than the 
one screen routine of the ROM. 


Line 100 uses the CLRSC routine from Basic to clear both 
screens. 


Lines 150-140 demonstrates the use of WRSTR from Basic. Тһе 
student will find this routine interesting in that it searches 
the Basic VARS file for the correct string and then uses WRCH to 
write it to the screen. А study of the first part of WRSTR will 
give a routine to search the VARS which may be useful for other 
programs. 


Line 155 demonstrates how to use SETMS from Basic. Just set 
57565 back to zero and rerun the line to turn it back off. AND 
set 57565 to 1 and rerun line 155 to turn over on. Df course you 
have to Poke 57551 with a line # and 57352 with a column # (О to 
65 in basic form like in the АТ statement) and then do a 
RANDOMIZE USR 57353 ta run SETCU and move the cursor back so you 
can overprint on top of something you already have on the 
screen. The student will realize that by just setting a new 
column number and then running SETCU consitutes a TAB, unfortun- 
ately without checking to see 1+ a move to a new line is 
necessary which once more is the responsibility of the 
programer. 


Line 500 takes one back to the single screen mode. 


You will also note that in listing a program it only writes on 


775 


ж” 
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screen 1 which may be somewhat hard to read without first doing 
а CLRSC. INFUT promps also only work on screen 1. 


The following have been checked out and work but are not 
demonstrated in the program as they are more diagnostic than 
useful: 


GETCH: Set your position as in the AT function described above 
and run SETCU. Then run GETCH by using PRINT Randomize Usr. The 
code of the character at that address is returned on screen 1. 


GETCU: With a Print Randomize Usr will give the present line and 
column number on screen 1. 


А START ON А WORD PROCESSER 


The 64 column mode is the best overall screen around which to 
build a word processor. Characters are much easier to read than 
on the 80 column screen. The only reason RPM uses an 80 column 
screen is to make it compatible with other computers which use 
that format. Writing to the 64 character screen and even 
scrolling it window fashion as Mscript does is quite easy to 
do. 


All word processors require a data file to be kept so that опе 
may again reproduce that portion of the document no longer on 
the screen. Since the main idea of a word processor is to 
eventually print out a hard copy, a file of the ASCII codes end 
attendant ТАВ, ENTER, and other hard сору printing functions is 
essential. This requires a write-to-a-file routine and a read 
from a certain spot in the file routine. Since our intent is not 
to write a word processor we will skip the file functions and 
instead concentrate on things that help us with the screen. 


We will first want to print a cursur to the screen to find out 
where we аге. As we type in a character it should appear on the 
screen where the cursor was and the cursor should move over опе 
space. Let's also implement the ENTER key а а "start а new 
line" and the cursor keya to move the cursor around the screen. 
INK will be used for color change but PAPER won't work. OVER and 
INVERSE will have their usual functions. Instead of constantly 
moving back and forth from Basic to code we will call our 
routine once and stay in it until we do a STOP token. 


We will also want to make it possible to use all the characters 
including the standard graphic and UDG graphics as well as the 
CAPS LOCK. These last Z weren't possible from the above Basic 
program. We have a problem initializing some of the extended 
mode tokens as well. 


Before going into the machine code, let's do a little Basic 
exploratory program and see exactly what is happening in our 
computer. Enter the following little program: 
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5 FOR x = 1 TO 40 

10 PRINT PEEK 25560%" "j,CHR$ (PEEK 22560), 
15 PAUSE O 

20 NEXT x 


Run the program without the CAPS LOCK on and with your Basic 
User Manual open to Appendix B to check the codes. Before you 
ever get your finger off the enter key you get а 15 on the 
screen which if you check is the right code for ENTER. Hit 
another key and you will see that the printing skips a full line 
and a half--actually a line as the (comma) at the end of the 
line 10 in the program would give you the half shift. You will 
note that the Caps Shift works and so does the Symbol shift key 
but you can't get the caps lock to work. You only get a 6 when 
entering a caps shifted 2. According to the manual that is 
supposed to be a PRINT comma--shift half a line. The caps 
shifted 9 gives us a 15 but nothing afterwards iz in standard or 
UDG graphics. And the Caps shift and symbol shift give us a 14 
which is supposed to be a slug code but again we don't get the 
wxtended token codes. The 4 cursor keys, Caps shifted 5 to 8, 
give ug the codes listed. 


Now rerun the program in the CAPS LOCK mode--do a RUN, then a 
caps shifted 2 for a C cursor and then enter. Everything is in 
CAPS and nothing we can do shifts it out to lower case 
characters. 


The next time run the program in the Graphic mode by getting the 
б cursor before you hit enter. Everything is in graphics and the 
alphabet gives you UDG graphics from A through U but what 
happens when you do а V, W, X, Y, or Z? Interesting that the 
computer gives you tokens for where V, W, X, Y and Z should be 
in an extension of the UDG table. 


And once more run the program in the Extended token mode by 
getting the E cursor before you hit enter. Also use the symbol 
shift key with some of the other keys. Its very very interest- 
ing but we can get every token we want if we do the proper 
things. 


What have we learned? If the computer is in the C mode every- 
thing is in CAPS, in the E mode everything is in Extended tokens 
including the symbol shifted tokens, if in G mode everything is 
in graphic codes. Only the К tokens are unavailable as we can’t 
keep the computer in that mode. 


But why can't we shift modes as we do in a Basic line entry? Or 
to put it another way, how does the computer keep track of what 
mode it is in? In the system variable table we have a variable 
at 25617 called MODE. This doesn't tell us a lot but if you have 
the ROM Manuscript or your Technical Manual you already know 
that setting no bits of this byte keeps the computer thinking it 
is in the К or L mode. Setting bit 0, doing a FOKE 25617,1, 
turns everything in LastK to Extended token mode. Doing a РОКЕ 


=A 
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25617,2, setting bit 2, turns everything to Graphics mode. 
The CAPS LOCK flag is located in bit 3 of FLAGS2 address 25658. 


So far so good. We are now ready to start our machine code 
program. When we want to do a CAPS LOCK we know we are going to 
get a 6 code which we can tell our program to switch on or off 
bit 5 of 23658. When we want graphics, the caps shifted 9 will 
give us а 15 code which is the signal to toggle bit 2 of 23617, 
and with the caps shift-symbol shift we will get a 14 which will 
be our signal to toggle on the extended mode, but this опе for 
just one entry and then off again. 


We will be using the underline (code 95) for our cursor. we 
print it in the next print space and then back up the pointer so 
that we erase it as we write the character we want. The 
rationale for delete 1% interesting in that first we have to 
delete the cursor, then back up the pointer and print the cursor 
there and in the process erase the written character. 


Now the routine UPDFOS doesn't operate with numbers from 65% to 
zero but rather with column numbers from 65 to 2, and with line 
numbers from 24 to 1 kept in the variable called CURPOS. 
Therefore, the first position on the screen has the со- 
ordinates of 24,65, while the right upper corner is 24,2, and 
the lower left corner 1,645. 


Now that we have done our planning, let's write our code. Ме 
will tack it on the back of our present code starting at address 
58645. 


DEFINITIONS: 
SETMODE EQU 58184 
WRCHAR EQU 57408 
CURFOS EQU 57396 
UPDPOS EQU 58454 
MODE EQU 25617 
FLAGS2 EQU 23658 
SETATTR EQU 51969 
MASKB EQU 57400 
LASTK EQU 22560 


ORG 58645 

DISP 57544 

ENT 
58645 2ЕО6 INITALIZE LD А,6: SET MODE 
58547 CD48E3 CALL SETMODE 
58650 SESF МЕХТЕН LD А, 95: FRINT CURSOR 
58652 CD40EO CALL WRCHAR 


58655 ED4B24E0 MOVECB LD ВС, (CURFOS): MOVE POINTER BACK 
58659 OC INC C 

58660 79 LD A,C 

58661 FE42 CP 66: LEFT END OF LINE? 

58665 5809 JR C, SAMELN 


CDS6E4 SAMELN 
С056Е6 GETCH 
FEOD 

200C 
ED4BS4EO 

OE41 
оз 
CD1CE6 
18D7 
FEOC 
201B 
ED4B34E0 


DELETE 


ҒЕОВ 
2012 
ED4B34E0 


DOWN 


UF 


ED4B34E0 
04 

78 

РЕ! В 
ЗВЕ2 


Advanced 2068 Machine Code 


Chapter 4 


LD C, 2: SET УР TO RIGHT 1 LINE UF 
DEC B 
LD А, 
СР В 
JR NC, SAMELN 

DEC B: CAN’T DO AS OFF SCREEN 
CALL UPDF DS 
CALL GETCHAR: 
СР 15: ENTER? 
JR №2, DELETE 
LD BC, (CURFOS) 
LD C, 65 

DEC B 

CALL MOVECUR 
JR MOVECEB 

CP 12 

JR NZ, LEFT 
LD BC, (CURFOS) 
INC C 
LD A, 
CP 66 
JR C,SAMEL1 
INC C: NOTE: 
LD C,2 

PUSH BC: SAVE FOSITION 

CALL MOVE CUR: ERASE CURSOR 


24: OFF TOF OF SCREEN? 


SEPARATE ROUTINE-NEED SEVERAL 
DIFFERENT TIMES 


С: АТ LEFT OF LINE? 


NO CHECK FOR OFF TOF OF SCREEN 


ХОК А: Ато 

CALL WRCHAR: ERASE CHAR 

FOP BC: GET POSITION BACK 
CALL UPDPOS 

JR NEXTCH: REWRITE CURSOR 
СР 8 

JR NZ, DOWN 

LD ВС, (CURPOS) 

INC C 

LD А, С; LEFT END OF LINE? 
CF 66 

JR C, CURSOR 

LD C, 2: RIGHT OF I LINE УР 
INC B: NO CHECK OF OFF TOP OF SCREEN 
CALL MOVECUR 

JR MOVECB 

CP 10 

JR NZ, UP 

LD BC, (CURFOS) 

DEC B 

JR CURSOR 

CP 11 

JR NZ, RIGHT 

LD BC, (CURFOS) 

INC B — 
LD А,В 

СР 24 


JR C, CURSOR 
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58774 05 DEC B 

58775 18DF JR CURSOR 
38777 FEO9 RIGHT CP 9 

58779 200F JR NZ, STOF 
58781 ED4B34E0 LD BC, (CURPOS) 
58785 OD DEC C 

58786 SEO1 LD А, 1 

58788 B9 СР С 

58789 5801 JR C,CURSOR 
58791 DE41 LD C, 65 
58795 05 DEC B 

58794 18СС JR CURSOR 
58796 ҒЕЕ2 STOP CP 226 

58798 2001 JR NZ, CAFSLOCK: 
58800 С9 КЕТ 

58801 FEOS CAPSLOCK СР 6 

58805 200A JR М2, GRAPHICS 
58805 SA6ASC LD А, (FLAGS2) 
58808 ЕЕОВ хок 8 

58810 326A5C LD (FLAGS2),A 
56815 1846 JR JUMF 

58815 FEOF GRAFHICS СР 15 

38817 200a JR NZ, EMODE 
58819 24415С LD A, (MODE) 
58822 EEO2 XOR 2 

58824 32415C LD (MODE),A 


58827 1898 JUMP 1 JR JUMP 
58829 FEOE EMODE CF 14 


58851 2046 JR NZ, PRINT 

58855 354415С LD А, (MODE) 

38836 EEO1 XOR 1 

58858 22415С LD (МОШЕ). А 

58841 CD36E6 CALL GETCHAR 

58844 FED9 СР 2171 INK? 

58846 2016 JR NZ, OVER 

58848 АҒ ХОК A 

58849 524115С LD (МОВЕ), А: MUST GO BACK TO L MODE FOR # 
58852 CD36E6 X CALL GETCHAR 

58855 FEJO CF 48: IS CODE А #? 
28857 SOF? JR C, X: TRY AGAIN 
$8869 FEZA СР 58 

58861 ЗОҒ5 | JR NC, X 

58865 0650 SUB 48: REDUCE CODE TO & 
38863 CD71E2 CALL SETATT 

$8868 181A JR OUT1 

58870 FEDE OVER CP 222 

58872 200A JR М2, INVERSE 
58874 ЗАЗВЕО LD А, (МАЅЕВ) 

58877 ЕЕО1 XOR 1 

58879 5258ЕО LD (МА5КВ),А 

28882 180C JR OUT1 

58884 FEDD INVERSE CP 22 

588865 2008 JR NZ. DUT1 


58888 5АЗВЕО LD A, (МАЗЕВ) 
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98891 ЕЕО4 

$8895 5258ЕО 

58896 АҒ OUT1 
58897 32415C 

58900 С555ЕЗ 

58905 CDA4OEO PRINT 
58906 1ВАР 

58908 СЭ MOVECUR 

58909 SEO1 

58911 $258ЕО 

58914 JESF 

58916 CDA4OEO 

58919 Сі 

58920 CDS6E4 

58925 SESF 

58925 С040ЕО 

98928 ЗЕОО 

58950 525ВЕО 

58955 С9 

58954 АҒ GETCHAR 

58955 32085С 

58958 010060 

58941 OB DEBOUNCE 
28942 78 

58745 B1 

58944 20FB 

58946 SAO85C NONE 
58949 A7 

58950 28FA 

58952 C9 


Please note that not all the checks for moving 
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хок 4 

LD (MASKE), A 

ХОК А: aso 

LD (MODE) ,а 

JP GETCHAR 

CALL WRCHAR 

JR JUMP 1 

FUSH BC: SAVE FOSITON 
LD A, 1: SET OVER ON 
LD (MASKB), A 

LD A, 95: DELETE CURSOR 
CALL WRCHAR 

POP BC: USE POSITION 
CALL UPDFOS 

LD A, 95: WRITE CURSOR 
CALL WRCHAR 


-LD A, о 


LD (MASKB),A 
RET 

XOR A 

LD (LASTK),A 

LD BC, 24576 

DEC BC 

LDA, B 

OR C 

JR NZ, DEBOUNCE 

LD A, (LASTK) 

AND А: STILL ZERO? 
JR Z, NONE 

RET 


have been written into all the routines. In 


routines to make sure parameters stay within 


takes up a lot of any machine code routine. 


Code Chapter 4 


Therefore, 
don't check the cursor movements by deliberately 
off the screen as this program may crash. You will note 
different methods of checking these limits are used to show 


student that it is possible to write in different 


still get it to work. 


Save the code with "wpo.bin",5045:,:507. Load the "640" code and 
then this code in back of it with “wpo.bin,58645,. Then simply 
do a RANDOMIZE USR 58645 and the program runs. Of course, doing 
a stop exits you back to Basic. You can get back in Бу again 
doing a RANDOMIZE USR 58645 with the cursor reset to the home 
position. РОКЕ 57580,0 and RANDOMIZE USR 57381 gets you back to 
normal screen mode. 


Strange effects will be noticed in the inverse and over mode. 
Both can be оп at the same time. Inverse of course also inverts 
the cursor as well as the standard graphics. Using OVER of 
course leaves the cursor under the character as nothing in the 
character block is deleted as the 2nd character is printed over 
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the first and only pixels that are on in both characters are 
inverted. We would have to add a check in the present routine to 
detect when OVER is on which would jump to another routine to 
first delete the cursor and then Overprint the character. 
However, 9O Z of the time the only time one wants OVER is to 
underline so I left it as it is. You will also note that moving 
the cursor back to correct the spelling of a word moves the 
cursor over to the following character and deletes that causing 
you to retype to the end of the word. 


You may also note that the keyboard is a bit sluggish if you are 
а speed typist. This can be adjusted by lowering the count in 
the debounce routine at 58941 as it counts down from 24576 to 1 
before continuing to allow slow people to get their fingers off 
the keys. Also note that since the repeat function is in the ROM 
routines of finding LASTK it also works in our processor. 


There is still a long way to go to have a full-fledged word 
processor as there is no word wrap, space insert, space delete, 
tab, print file, move and delete block, find word and all the 
write, edit and lprint to and from an ASCII file that must be 
added. On the other hand, our little addon 207 bytes of code did 
quite a bit. We leave it to the student to go on from this 
point. There is still 4K available in chunk 7. Most of the space 
below chunk 7 would be used for as long a storage file as 
possible for the ASCII codes аз that determines how long a 
document you can handle. There are 2500 characters on а 99 line 
64 column page if you count every byte as Tasword does. Less 
space is used by Mscript as only the "N" is used to indicate a 
blank line. 


Scroll 64 Screen Left and Right 


However, since they are short and may have uses іп other than 
wOrd processors, here are the two routines to scroll the entire 
64 column screen left or right one character space leaving a 
trailing blank. I put them at the end of our present routine 
where those of you with the program disk may use them. 


Scroll Left: 


98953 F3 LEFT DI: No interrupts until done 
58954 210040 LD HL, 16384: DFILE1 

58957 110060 LD DE, 24576: DEFLE2 

$8960 OECO LD C, 192: # of lines 

38962 O61F NXTLN LD B, Si: # double shifts/line 
$8964 1А LOOP LD А, (DE): DF2 to DF1 

58965 77 LD (HL), А 

58966 25 INC HL 

58967 7E LD A, (HL): DF1 to РЕЗ 

58968 12 LD (ОЕ), А 

58969 13 INC DE 

58970 10F8 DJNZ LOOP 


28972 1А LD А, (DE): XFER LAST CHAR OF LINE 
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589735 77 LD (HL), А 

58974 АР ХОК ñ: А=0 TO BLANK LAST CHAR 

58975 12 LD (DE),A 

28976 15 INC DE: TO NEXT LINE 

58977 23 INC HL 

$8978 OD DEC C 

58979 20Ер JR NZ, NXTLN 

58981 FB EI 

58982 C9 RET 


Scroll Right: 


DI: NO INTERRUFTS UNTIL DONE 


58985 Ғ5 RIGHT 

58984 21ҒҒ57 LD HL, 22527: END ОҒ DFILE1 PIXELS 
58987 11FF77 LD DE, 30719: END OF DFILE2 PIXELS 
58990 OECO LD C, 192 

58992 O61F  NXTLN LD B, 31 

58994 7E LOOP  LD А, (HL) 

58995 12 LD (DE), А 

58996 1B DEC DE 

58997 1А LD ñ, (DE) 

58998 77 LD (HL),A 

28999 2B DEC HL 

59000 10F8 DJNZ LOOP 

$9002 7E LD A, (HL): ХҒЕК LAST CHAR 
$9003 12 LD (DE), А 

59004 5600 LD (HL),0: BLANK LAST CHAR 
39006 2B DEC HL 

59007 1B DEC DE 

59008 OD DEC C 

59009 2OED JR NZ, NXTLN 

59011 FB EI 

59012 C9 RET 


You will note that since we are scrolling the entire 


are not concerned with moving a full character at а 


scroll the pixel lines in the sequence in which they are 


in the DFILES. All 24 lines of the screen scroll for 


fans out there. 


А major change would be needed not to scroll the 
bottom two lines as is done in most word processors. 
2/Srds of the screen could be done as above but the 


would require skipping the pixels of the last 2 lines. 


screen 


The 
last 


and EI are recommended whenever 
that uses the lower half of the 
with the refresh TV/monitor use 
gives the viewer the impression 


we are using an extended routine 
RAM so that we don't conflict 
of the data bus. Besides, it 
of an instantaneous shift. 


On to the 80 column mode. It uses the same 64 column screen we 
have just been using and only writes smaller characters to the 
sceen to cram BO to 85 characters on a line rather than only 64. 
If you have the Aerco disk system, the RPM programs imported 
from other computers use this type of screen to use the print 
routines directly. One has to remember that most of these СРМ or 


RFM programs were written quite 


а few years ago and usually 
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contain à minimum of screen routines which are not up to what we 
have been accustomed to. 


89 COLUMN MODE 


What do we have to do to modify the 64 column mode to 80 column 
printing using 5 bit wide characters and a 6th bit for spacing 
between characters? At this point load your source code back 
into Zeus or disassemble your 64 characaracter code with Hot Z 
or do what ever you have to do to modify the 64 character code 
with your assembler. (Those of you with tapes or disks of the 
programs can forget doing the assembly as it's already done for 
you in "80.bin" or "80" CODE.) We will be assembling to the same 
starting address. The first thing we will need is а specially 
designed character table which we will enter later. But we used 
CHRSET to define this address so we have to change that EQU 
Statement to read: 


CHRSET EQU ((CHRST) - 256). 


Next, as we pointed out earlier, we have 512 pixels per line 
which divided by 6 allows us an extra 32 pixels to play with so 
we can define where these pixels will go by adding them on to 
the end of the variable table at address 57405 as: 


57405 O1 MARGIN DEFB 1: Margin adjust (0-2) 
It can take on values zero to 2. 


Because of the complex nature of at times writing character 
Pixels to two different bytes in alternating display files we 
also need another variable called DFBIT at 57406: 


27406 OO DFBIT: Bit posn in line (7,1,3,5). 
It can have the values given. 


We of course have to rewrite part of WRCH and all of GTCH and 
CALCPOS. 


Rewriting WRCH: Adding the two extra variables 9+ course pushes 
the start of our WRCH routine up two addresses. This will  auto- 
matically be done by the assembler. The first part of МЕСН is 
the sorting of the characters to either standard characters, 
standard graphics or UDC's. Jump down to two lines above the 
subroutine WRCHS and delete from there to WRCHXT (addresses 
57499 (EO9B) to 57529  (EOB9) and replace by the following: 
(WRCHS moves up): 


57499 ОВ WRCHS ЕХ AF,AF’: SAVE COUNT 
57500 CS FUSH BC: SAVE MASK 
57501 DS PUSH DE: SAVE CHAR TBL ADDR 


57502 00210000 LD IX, O: SAVE STACK POINTER 
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$7506 DD39 
$7508 56 
37509 ES 
57510 7C 
57511 ЕЕ20 
57515 67 
57514 CBF 
57516 2001 
57518 25 
57519 ЗЕ 
57520 ЕВ 
57521 78 
57522 А7 
57525 2014 


57525 ЗАЗЕЕО 


57528 D607 
57550 Ер44 


57552 OLFFOS 


57555 2808 
57557 57 
57558 CB18 
57540 СВ19 
57542 50 
57545 2059 
57545 7С 
57546 АО 
57547 67 
57548 7D 
57549 Al 
57550 &F 


57551 SASEEO 


57554 р607 
57556 Ер44 
57558 ЕЗ 


57559 DD6EOO 


57562 DD6601 
57505 46 
57506 OEOO 
57568 FS 
57569 78 
57570 ЕФЕС 
57572 47 
57573 Ғі 
57574 E1 
57575 2808 
57577 А7 
57578 СВ18 
57580 CB19 
57582 3D 
57585 20F9 
57585 7С 
57586 А8 
57587 67 
57588 70 
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WRCHE 


NEXT1 


NORR1 


NOXOR 


NEXT2 


NORR2 


ADD IX, SP 

LD D, (HL): READ SCAN LINE FROM DFILE 
PUSH HL: SAVE ADDR 

LD A, H 

ХОК 32 TOGGLE TO ALTERNATE DFILE 

LD H, A 

ВТ 5, ñ: WHICH FILE? 

JR NZ, WRCH6: IN DF2 

INC HL NEXT BYTE 

LD E, (HL): READ SCAN LINE FROM ALT DF 
EX DE, HL: HL = SCAN, DE = LAST OF РМТ 
LD A, B: OVER? 

AND A 

JR NZ, NOXOR 

LD А, (DFBIT) 

SUB 7 

NEG 

LD BC, 102$: MASK 

JR Z, МОКК1: NO ADJ NEC START AT BIT 7 


RR Bs SHIFT MASK А TIMES 

RR C: 6 O'S = START АТ БІТ 1 OF B, 2 
DEC A OF B, OR 5 OF B 

JR NZ, NEXT1 

LD А, Н: SCAN LINE FROM DF 


LD H, А: RETAIN ADJACENT CHAR PIXELS 
LD А, L1 CLEAR CURRENT CHAR PIXELS 


LD L, А: HL = OLD BIT ROW 

LD А, (DFBIT): GET STARTING BIT POSN 
SUB 7 

NEG 

PUSH HL: SAVE SCANS 

LD L, (1Х+0) POINTER TO CHAR SET 

LD H, (IX*1) 

LD B, (HL): SCAN LINE FROM CHAR SET TO 
LD C, O: BC 

PUSH AF: SAVE А AND FLAGS 

LD A, B1 PIXELS FROM CHAR SET 

AND 2521 ONLY PIXELS 


РОР AF: RESTORE А AND FLAGS 
POP HL: AND SCANS 

JR 7, NORR2 

AND А: CLEAR FLAGS 

RR B 

RR C 

DEC А 

JR NZ, NEXT 2 

LD А, H1 SCAN FROM DF 

XOR В: INSERT/COMEINE NEW CHAR 
LD H, A 

LDA, L 
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57589 A? хок с 

57590 6F LD L, А; DF ХОК CHAR SET TO HL 
57591 DD7EO2 LD А ,(IX*2)1 INVERSE ON? 

57594 А7 AND А 

57595 281A JR 7, NOINVERT 

57597 ЗАЗЕЕО LD А, (DFBIT) 

57600 0607 SUB 7 

37602 ED44 NEG 

57604 O100FC LD BC, 64512: MASK TO INVERT 
57607 2808 JR NZ, NORRS 

57609 А7 AND А 

57610 CB18 NEXTS RR B: SHIFT MASK A TIMES 

57612 CB19 RR C 

37614 3D DEC А 

57615 20F9 JR NZ, NEXT: 

37617 7C LD A, H 

57618 A8 XOR В: INVERT CHAR 

27619 67 LD H, А 

$7620 7D LD A,L 

37621 А9 XOR C ` 
$7622 6F . LD L, А 

57623 ЕВ NOINVERT ЕХ DE, HL: HL = DF ADDR/DE = SCAN LINE 
$7624 73 LD (HL), E: SCAN LINE TO DF 
37625 E1 POP HL: ALTERNATE DF 

57626 72 LD (HL), D: SCAN LINE TO DF 
57627 D1 РОР DE: CHAR SET 

57628 С! РОР ВС: OVER/INVERSE INDICATORS 
37629 08 EX AF, АР’: RESTORE SCAN COUNT 
57630 24 INC H: TO NEXT 5САМ LINE 

57651 13 INC DE: TO NEXT CHAR PIXEL 

57652 SD DEC А: MORE SCANS? 

57653 C29BEO JP NZ, WRCHS 

57656 Е1 WRCH7 POP HL: TOP SCAN IN DF 

57657 Сі POP ВС: CURSOR РОЗМ 

97658 OD DEC C: ADJUST CURSOR POSN 

57639 SASEEO LD А, (DFBIT): ADJUST БІТ POSN 
57642 D606 SUB 6 

37644 525ЕЕО LD (DFBIT), А: STORE UPDATED POSN 
$7647 SOOE JR NC, WRCHXT: NEXT CHAR IN SAME BYTE 
57649 C608 ADD А, B: NEXT CHAR IN NEXT BYTE 
57651 323EEO LD (DFBIT), As STORE ADJUSTED VALUE 
57654 7C LD A, Н: ADJUST DF ADDR TO NEXT BYTE 
57655 ЕЕ20 ХОК 52: TOGGLE TO ALTERNATE DF 
57657 67 LDH, A 

57658 CB6F BIT 5, As WHICH DF? 

37660 2001 JR NZ, WRCHXT: DONE IF IN DF2 
57662 25 INC HL: NEXT BYTE IN DF1 

57665 WRCHXT 


The WRCH routine is now 122 bytes longer so all the following 
routines are displaced by 134 bytes. Once again the assembler 
will automatically adjust for you. We don't have to make апу 
corrections to WRSTR, SETCUR, SCROLL, CLRSC, SETA or SETM. Since 
GTCH gets the code of a screen character, it is affected and 
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must be almost 
did in WRCH as 
we will add at 
tables.) 


58150 EDA4B19EO 
58154 CDEBE4 
58157 SASEEO 
58160 FS 

$8161 CDFCE4 
58164 CDOCES 
58167 EDSBZFEO 
38171 0660 
5817$ ЗЕВО 
58175 323AEO 
$8178 14 

58179 CS 

58180 ES 

58181 DS 

58182 CD60ES 
58185 78 

58186 E6FC 
58:88 47 

58189 EG 

58190 7E 

58191 
58195 АВ 
58194 2810 
98196 FS 
58197 ЗАЗАЕО 
28200 FE9O 
58202 2003 
58204 F1 
58205 
58207 Ғі 
98208 FEFC 
58210 2056 
58212 АҒ 
58215 0407 
58215 ЕВ 
58216 CS 
58217 24 
58218 13 
58219 CD6OES 
58222 78 
58223 ЕФЕС 
58225 47 
58226 ЕВ 
58227 7Е 
58228 EFC 
58250 A8 
58251 Сі 
58252 89 
58233 201Ғ 
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completely rewritten with some bit fiddling as we 


follows: (ІЁ calls a routine called GTC2BC 
the end of the code 


GTCHBO 
GTCHAR 


GTCH1 


GTCH2 


GTCH22 


GTCH23 


GTCHS 


GTCH31 


which 


just before the character 


LD BC, (GETCTL): GET CONTROL INFO 
CALL TSTPAR: TEST PARAMETERS 

LD А, (DFBIT): CURRENT BIT POSN 
PUSH АҒ 

CALL CONVFM: CONVERT TO INT. FORMAT 
CALL CALCPOS: GET DFILE ADDR 

LD DE, (CHTBL) 

LD B, 961 ЖОҒ CHARS 

LD А, 128 

LD (GTINDX), A 

INC D: ADJ TO START OF TEL 

PUSH ВС: SAVE COUNT 

PUSH HL: SAVE DF ADDR 

PUSH DE: SAVE CHAR TABLE ADDR 

CALL GTCZBC 

LD А, B 
AND 252: 
LD B, А 
EX DE, HL; 
LD A, (HL): 
AND 252: 


ONLY THE PIXEL BITS 


HL = CHAR SET POINTER 

PIXEL ROW TO A aee 
MASK TO 6 BITS ^. 
ХОК B: TEST AGAINST DF 

JR 2, ӨТСН2: MATCH 

PUSH АР 

LD А, (GTINDX): 
CP 144 
JR N2, 
POP АҒ 
JR GTCH4: 
POP АЕ 
CP 252: TEST IF MATCH ON INVERSE 

JR NZ, CTCH4: NO MATCH 

LD C, A1 CxO FOR MATCH -4 FOR INVERSE 
LD B, 71 SCAN COUNT 

EX DE, HL: DF ADDR TO HL 

PUSH BCZ SAVE MATCH AND SCAN COUNT 
INC H: NEXT SCAN IN DF 

INC DE: NEXT ROW IN CHAR TBL 

CALL ӨТС2ЕС: NEXT SCAN ROW TO BC 

LD А, B 
AND 252: 
LD B, à 
EX DE, 


STANDARD GRAPHIC? 
БТСН23 


DON'T TEST INVERSE 


PIXELS ONLY 


HL: HL=CHAR SET POINTER 

LD А, (HL): CHAR SET ROW 

AND 252; PIXELS ONLY 

XOR B: MATCH TO THAT IN B 

POP ВС: GET PREV MATCH AND SCAN COUNT 
хок C 
JR NZ, 


GTCH4: NO MATCH START AGAIN АТ 
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$8235 10EA DJNZ GTCHT1: DO NEXT SCAN NEXT 
98237 79 GTCH32 LD А, C: А=-4 IF INVERSE MATCH 

$8258 C602 ADD А, Z: SET TO -1 ON INVERSE 

58240 С! РОР ВС: HERE IF MATCH (ЗР)=РМТ TO CHAR 
58241 С! РОР BC: (5Р+4)= CHAR COUNT 

58242 C1 РОР BC: В-СОММТ С=-1 IF INVERSE MATCH 
58242 АҒ LD С, А: CONVERT MATCH TO CHAR CODE 
58244 ЗАЗАЕО LD А, (GTINDX) 

58247 90 SUB B 

58248 FE2O CP 32: SPACE? 

$8250 2005 JR NZ, GTCHS32: NO 

58252 ОС INC С: TEST IF MATCH ON INVERSE 
58253 2002 JR NZ, GTCH32 

58255 SESF LD A, 143: LD CODE FOR GRAPHIC BLOCK 
58257 4Е 6ТСН52 LD C, A: RET IN C 

58258 0600 LD B, Ot AND IN ñ 

58260 F1 POP АР 

58261 323EEO LD (DFBIT), А: RESTORE DFBIT 

$8264 79 LD А, С: CHAR CODE TO А 

58265 C9 RET 

58266 Е! GTCH4 POP HL: POINTER TO CHAR SET 

58267 110800 LD DE, 8: NEXT CHAR 

#8270 19 ADD HL, DE 

58271 SD LD E, L: XFER TO DE 

58272 54 LD D, H 

58275 Е! POP HL: РЕ ADDR 

58274 Сі РОР BC: CHAR COUNT 

58275 109E DJNZ GTCH2: LOOK AGAIN 

58277 ЗАЗАЕО LD А, (GTINDX): TEST IF DONE 

58280 РЕВО CP 128: STD CHAR SET? 

58282 200A JR NZ, GTCHS 

58284 EDSB31E0 LD DE, (GRTBL) 

58288 0610 LD B, 16: # OF ENTRIES 

58290 SEO LD А, 144 

$8292 1889 JR GTCH1 

58294 РЕЗО GTCHS CP 144 

58296 200C JR М2, GTCH6 

58298 EDSB7BSC LD DE, (UDG) 

58502 15 DEC D: ADJUST START 

58505 0615 LD B, 21: % OF ENTRIES 

58505 SEAS LD А, 165: INDEX 

$8307 CS3SFES JP GTCH1 

58310 F1 РОР АР 

58511 323EEO LD (DFBIT), А: RESTORE DFBIT 

58314 48 CTCHS LD C, B 

38315 АЕ XOR А 

58516 C9 RET 


The СТЕН routine also is longer thereby increasing addresses Бу 


172 from here on out. GETA and GETC don't need changes. We 


have 


) change and 1 addition to STMD. We 
length to 801 


have to change the line 


58580 ЗЕЗО LD а, 80 
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Right above the line LD (LINLEN), А. 
Right below this line insert the following two lines to set the 
margin: 
58585 2ЕО1 LD A, 1 
58587 323dE0 LD (MARGIND, А 
This makes our offset 177 addrdsses. 


Since characters no longer occupy a full byte we have to redo 
CALCFOS as well: 


98636 CD3FES CALCFOS CALL LNBO: GET DFILE ADDR FOR LINE 


58659 ЗАЗЗЕО LD А, (LINLEN) 

58642 SC INC ñ 

58643 91 SUB C 

$8644 FS PUSH AF: SAVE COL # (O-(LINLEN) -1)) 
38645 SF LD E, А 

58646 87 ADD А, А 

58647 83 ADD A, Е: $%(80 C РОЅМ) /4=(64 C POSN) 
58648 СЕЗЕ SRL А 

58650 CB3F SRL ñ 

$8652 СВ47 BIT O, А 

68554 2806 JR 2, CALCP1 

68656 FS PUSH АР: ODD COLS ARE ІМ РЕ? 

68657 ЗЕ20 LD А, 32 

58659 B4 ОК H: SHIFT TO DF2 

58460 67 LD H, A 

98661 F1 POF АЕ 

38662 A7 CALCP 1 AND А: CLEAR CARRY 

SB663 1F RRA: COL/2 

98664 SF LD E, А 

58665 ZAIDEO LD А, (MARGIN): GET ADJUSTMENT VALUE 
58668 83 ADD A, Е: AND ADD TO DE 

$8669 Sf LD E, А 

58670 1600 LD D, Е 

58672 19 ADD HL, DE: DE=OFSET IN LINE, HL=DF 
58673 1Е07 LD E, 7 ADDR 
58675 Fi РОР AF: A=COL POSN FOR 80 COL 

58676 E603 AND 5 

28678 2802 JR Z, CALCP21 STARTS AT BIT 7 

58680 SF LD E, А: STARTS АТ БІТ 1, 2 OR 5 
58681 5р DEC Я 

58682 83 CALCP2 ADD A, E 

58685 522ЕЕО LD (DFBIT), А 

58686 С9 КЕТ 

58687 LNBO NO CHANGES IN THIS SUBROUTINE 


STPOSN and LDPOSN need no changes. We now add GTCZ2BC: 


28720 ES GTC2EC PUSH HL: SAVE DF ADDR 
$8721 46 LD B, (HL): SCAN LINE FROM DF 
28722 7C LD A, H 


N 
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58725 ЕЕ20 XOR 32 

58725 67 LD H, à: TOGGLE TO ALTERNATE DFILE 
58726 CB6F BIT 5, At WHICH DF? 

28728 2001 JR NZ, GTC2B1 

58750 23 INC HL 

58751 4E GTC2B1 LD C, (HL): BC=CHAR AT DFBIT 
58752 SA3EEO LD А, (DFBIT) 

58755 0607 SUB 7 

58757 Ер44 МЕС 

58759 2807 JR 2, GTC2B2: А=# OF PIXELS FOR CHAR 
58741 CB11 GTCSHFT RL C: TO B, BITS 7-2 

58745 CB10 RL B 

58745 3D DEC А 

58746 20F9 JR NZ, GTCSHFT 

58748 Е! GTC2B2 POP HL 

28749 C9 RET 


And the compressed character set before the standard graphics 
table: 


58750 00000000 CHRST DEFE 0,0,0,0,0,0,0,0: CODE 22 BLANK 
58754 00000000 

58758 0010101010001000 DEFB 0,16,16,16,16,0,16,01: CODE 33 ! 
38766 0048480000000000 DEFB 0,72,72,0,0,0,0,01 CODE 34 " 
38774 00287C28287C2800 DEFE 0,40,124,40,40,124,40,0: CODE 55 
58782 00107C507C147C10 DEFB 0,16,124,80,124,20,124,16:CODE 36 


58790 00646810102C4COO DEFB 0,100,104,16,16,44,76,00: CODE 57 
38798 001028102C483400 DEFB 0,16,40,16,44,72,52,0: CODE 38 & 
58806 0010200000000000 DEFB 0,16,32,0,0,0,0,0: CODE 59 ° 
58814 0008101010100800 DEFB 0.8,16,16,16,16,8,0: CODE 40 ( 
58822 0020101010102000 DEFB 0,32,16,16,16,16,32,0: CODE 41 ) 


58850 000028107C102800 РЕРВ 0,0,40,16,124,16,40,0: CODE 42 ¥ 
58858 000010107C101000 DEFB 0,0,16,16,124,16,16,0: CODE 45 + 
58846 0000000000101020 DEFB 0,0,0,0,0,16,16,32: CODE 44 , 
58854 00000000007C0000 DEFB 0,0,0,0,0,124,0,0: CODE 45 - 
38862 O0000000000303000 DEFB 0,0,0,0,0,48,48,0: CODE 46 . 


58870 0000040810204000 DEFB 0,0,4,6,16,32,64,0: CODE 47 / 
38878 O00384C5454643800 DEFB 0.56,76,84,84,100,56,0: CODE 48 O 
58886 0050501010107С00 DEFB 0,48,80,16,16,16,124,0: CODE 49 1 
58894 0058440438407С00 DEFB 0,56,68,4,56,64,124,0: CODE 50 2 
58902 0038441804443800 DEFB 0,56,68,4,56,64,124,01 CODE 51 2 


58910 00081828487C0800 DEFB 0,8,24,40,72,124,8,01 CODE 52 4 
58918 007C40780444:3800 DEFB 0,124,64,120,4,68,56,0: CODE 53 5 
58926 0038407844443800 DEFB 0,56,64,120,68,68,56,0: CODE 54 6 
58954 007C040810202000 DEFB 0,124,4,8,16,52,22,0: CODE 55 7 
58942 0038443844443800 DEFB 0,56,68,56,68,68,56,0: CODE 56 8 


58950 005844445С045800 DEFE 0,56,68,68,60,4,56,0: CODE 57 9 
58958 0000001000001000 DEFB 0,0,0,16,0,0,16,0: CODE 58 : 
98966 0000100000101020 DEFE 0,0,0,16,0,0,16,16, 221: CODE 59 ; 
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58974 
58982 


58990 
58998 
59006 
59014 
59022 


59050 
59058 
59046 
59054 
39062 


59070 
59078 
59086 
57094 
59102 


59110 
59118 
59126 
99134 
39142 


59150 
59158 
29166 
59174 
59182 


59190 
59198 
59206 
59214 
39222 


59250 
59258 
29246 
29254 
59202 


59270 
59278 
59286 
59294 
59502 


59510 
59518 
29326 


0000081020100800 
0000007C007C0000 


0000201008102000 
0038440810001000 
O038445ULS5C405COO 
003844447С444400 
0078447844447800 


0038444040443800 
0070484444487000 
007С407840407С00 
007C407840404000 
003844405C443800 


0044447С44444400 
007С101010107С00 
0004040444443COO 
0048506050484400 
0040404040407С00 


00444C5444444400 
00446454544C4400 
0038444444443800 
0078444478404000 
0038444444543800 


0078444478484400 
0038403804443800 
007C101010101000 
0044444444445600 
0044444444281000 


0044444454542800 
0044281010284400 
0044442810101000 
O07C040810207CO0 
0058202020203800 


0000402010080400 
0070101010107000 
0010385410101000 
00000000000000FC 
0018247020207C00 


000038043C443C00 
0020203824243800 
0000102020201C00 
©008085848485800 
0000384478403COO 


0010287020202000 
0000384848380830 
0040407048484800 
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DEFE 
DEF B 


DEF B 
DEFB 
DEF B 
DEF B 
DEFER 


DEFB 
DEFE 
DEF B 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFE 


DEF B 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFE 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
ПЕҒВ 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFE 
DEFB 


DEFB 
DEFB 
DEFE 


Chapter 4 
0,0,8, 16,32,16,8,0: CODE 60 < 
0,0. 0, 124,0, 124,0,0: CODE 61 = 
0,0,52,16,8,16,52,0: CODE 62 > 
0,56,64,8,16,0,16,0: CODE 63 ? 
0,56, 68, 68, 124, 124,64,60: CODE 64 


0,56, 68,68, 124,68,68,9: CODE 65 А 
О, 120,68, 120,68, 68, 120,0: CODE 66 


9,56,68,64,64,68,56,0: CODE 67 С 
0,112,72,68,68,72,112,0: CODE 68 
0,124,64,124,64,64,124,0: CODE 69 
0,124,64,124,64,64,64,0: CODE 70 
0,56,68,64,92,68,56,01: CODE 71 G 


0,68,68,124,68,68,68,0: CODE 72 H 
О, 124,16,16,16,16,124,0: CODE 72 
0,4,4,4,68,68,124,01 CODE 74 J 
0,72,80,96,80,72,68,0: CODE 75 К 
0.64,64,64,64,64,124,01 CODE 76 L 


0,68,76,84,68,68,68,0: CODE 77 M 
0,68,100,84,84,76,68,01 CODE 78 N 
0,56,68,68,68,68,56,0: CODE 79 O 
0,120,68,68,120,64,64,0: CODE Во 
0,56,68,68,68,84,56,0: CODE 81 0 


0,120,58,68,120,72,68,01 CODE 82 
0,56,64,56,4,68,56,0: CODE ӨЗ 6 
0,124,16,16,16,16,16,0: CODE 84 Т 
0,68,68,68,68,68,556,0: CODE 85 U 
0,68,68,68,68,40,16,01 CODE 86 V 


0,68,68,68,84,84,40,0: CODE 87 M 
0,68,40,16,16,40,68,0: CODE 88 X 
0,68,68,40,16,1616,01 CODE 89 Y 
0,124,4,8,16,52,124,0: CODE 90 Z 
0,56,32,32,32,32,56,0: CODE 91 C 


0,0,64,32,16,8,4,01 CODE 92 \ 
0,112,16,16,16,16,112,01: CODE 93 
0.16,56,84,16,16,16,0: CODE 94 ^ 
0,0,0,0,0,0,0,2521 CODE 95 

0,24, 56,112,52,32, 124,0: 


CODE 96 


0,0,56,4,40,68,60,0: CODE 97 a 
0,32,22,56,536.36,56,01 CODE 98 b 
0,0,28,32,22,22,28,01 CODE 99 с 
0,8,8,56,72,72, 56,01 CODE 100 d 
0,0,56,68,120,64,44,01 CODE 101 e 


O. 16,40, 120, 32, 32, 32,0: CODE 102 
0,9,56,72,72,56,8,48,0: CODE 102 
0,64,64,112,72,72,72,0: CODE 104 


= 


м Ў 
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59554 0010003010103800 DEFB 
59542 0008000808084850 DEFB 


.0,48,16,16,56,01 CODE 105 i 
о, 8,8,8,72,48: CODE 106 j 


99350 0020283030282400 DEFE 
59558 0020202020201800 DEFB 
99566 0000285454545400 DEFE 
59574 0000704848484800 DEFB 
59582 0000384444443800 DEFB 


16 

8, 

32,40, 48, 48, 40, 36,0: CODE 107 k 
32,32,32,32,532,24,01 CODE 108 1 
о. 40, 84.84, 84, 84,0: CODE 109 m 
о, 120, 72 272 ,72,72,04 CODE 110 n 
O, 56, 72, 72,72,56,0: CODE 111 o 


59590 0000704848704040 DEFB 


о, 

о, 

о 

о 

о. 

о, 

0 

0 12,72,72,112,64,64: CODE 112 
59598 OOO00384848:8080C DEFB О 

0 

0 

0 

0 

0 

0 

0 


1 
56,72, 72,56,8,12: CODE 113 а 
24,32,32,32,32,01 CODE 114 r 
48,04,48,8,48,0: CODE 115 s 


Ы 
* 
59406 0000182020202000 DEFB ‚2 
a 
32, 112,32,32, 32,24,0: CODE 116 


59414 0000304030087000 DEFB 
59422 0020702020201800 DEFB 


59430 0000484848483000 DEFE 
39438 0000444428281000 DEFB 
59446 0000445454542800 DEFB ,68,84,84,84,40,0: CODE 119 
59454 0000442810284400 DEFB 0,68,40,16,40,68,01 CODE 120 
59462 0000484848380870 DEFB 0,0,72,72,72,56,8,1121 CODE 121 y 


72,72,72,48,01 CODE 117 
122122: 40: A0 18101 CODE 118 


x z£ < r 


59470 00007C0810207C00 DEFB 0,0,124,8,16,32,124,0: CODE 122 2 
59478 001С106010101С00 РЕРВ 0,28,16,96,16,16,28,0: CODE 123 
39486 0010101010101000 DEFB 0,16,16,16,16,16,16,01 CODE 124 
59494 0070100810107000 DEFE 0,112,16,8,16,16,112,0: CODE 125 
59502 0028500000000000 DEFB 0,40,80,0,0,0,0,0,0: CODE 126 


59510 78849404654948478 DEFB 120, 152,148, 164,164,148,120: 127 
The standard graphics table must also be changed to 6 wide: 


59518 00000000 GRTBL DEFB 0,0,0,0,0,0,0,0: CODE 128 

998522 00000000 

59526 1С1С1С1С00000000 DEFB 224,254. 224192410 0] CODE 129 
59554 ЕОЕОЕОЕООООООООО DEFB 224, 224,224,0,0,0,0: CODE 150 
59542 ЕСЕСЕСҒСОООООООО DEFB 252, 252; 252,252,0.0,0,0: CODE 139 
59550 000000001С1С1С1С DEFB 0,0,0,0,28,28,28, 28: CODE 140 


$9558 1C1C1C1C1C1CiC1C DEFB 28,28,28,28,28,28,28,28: CODE 141 
597566 ЕОЕОЕОЕО1С1С1С1С РЕРВ 224,224,224,224,28,28,28,28: 142 
59574 FCFCFCFC1C1C1C1C ПЕЕВ 252, 252, 252, 252, 28, 28, 28, 281 143 
59582 ООООООООЕОЕОЕОЕО DEFB 0,0,0,0,224,224,224,224: CODE 144 
59590 1С1ІСІСІСЕОЕОЕОЕО DEFE 28, 28. 28, 28, 224,224 ‚224,224: 145 


59598 EOEOEOEOEOEOEOEO DEFB 224,224,224, 224, 224, 244,224,224; 
$9606 FCFCFCFCEOEOEOEO DEFE 252, 252, 252, 252, 224, 224, 224, 224: 
597614 ООООООООЕСЕСЕСЕС ОЕРВ 0,0,0,0,252,252,252,252: CODE 148 
59622 1СІСІСІСЕСЕСЕСЕС РЕРВ 28,28, 28, 28, 252, 252, 252,252: 149 
59650 EOEOEOEOFCFCFCFC DEFB 224,224,224,224,252,252, 252,252: 


59628 FCFCFCFCFCFCFCFC DEFE 252, 252, 252, 252, 252, 252 


59645 LAST BYTE USED LENGTH OF CODE 2302 
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Assemble and save your code as CAT "80,bin", ADDR, 2302 if to 
Aerco disk or as LOAD "BO",CODE ADDR, 2303. ADDR is the address 
of the start of your code depending upon what displacement you 
used. You will be using your code at 57344, 5O your Basic 
program will reload the code as CAT "SO.bin",57344, 2302 or with 
LOAD "BO" CODE 27344,2302 if from tape. 


and to check your code for accuracy, or load directly if you 
don't happen to have an assembler: 


57544 SBC33FE0C371E100 
57552 ООСЗВАЕ10018С378 
57560 E23S8CSFSE200C31D 
57568 ЕЗООООСЗ2ФЕЗС3СЫ 
57576 ЕЗСЗр4ЕЗОВСЗҒ1ЕЗ 


57584 0117C3CAE117017E 
57592 Е47ЕЕ75555180040 
57400 ООЗВВОООООООО15А 
37408 OOE1CDSS8ESFE20DA 
57416 47E1FEASD247E1C5 


57424 FE803815FE903809 
57452 ED4B7BSCO5D67018 
57440 OCEDABS1EOD66018 
57448 O4EDAB2FEOEB2600 
57456 6F29292909C1EB79 


57464 SD3A3S3EO2005zCOS5 
57472 4F18013CB9DSCC4B 
257480 E1D1CSESSASBEOOó6 
57488 FF1F3801041F1F9F 
27496 4F3EOBOSCSDSDD21 


57504 OOOODDS39S56ES7CEE 
57512 2067CB6F2001235E 
57520 EB78A720143A3EEO 
57528 D607ED4401FF0:28 
57556 0837CB18CB193D20 


$7544 [97САО677РА16ЕЗА 
57552 SEEOD607EDA4ESDD 
57560 6EOODD6601460EO0 
57568 FS78bE6FC47F1E128 
57576 OBA7CB18CB192D20 


57584 F97CAB677DA96FDD 
57592 7ЕО2А7281АЗАЗЕЕО 
57600 D607ED440100FC28 
57608 O8A7CB18CB19ZD20 
57816 F97CA84677DA96FEB 


57624 75Е172р1С1082412 
37632 SDC29BEOE1C1O0DZA 
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57640 SEEQD606323EE030 
$7648 ОЕСФОВЗ2ЗЕЕО7СЕЕ 
37656 2067CB6F200123CD 


57664 SOESOEOOO0600C9OE 
57672 0118F93E1890573A 
$7680 2DEOBAD207ES3A2E 
37688 EOSD2OOBZEO1322D 
57696 EOCICIOEOZ18DDzZ2 


57704 2EEOEDAB2EEOCS3E4 
57712 E13ACSSCE61FF640 
57720 S72A4BSC7EES7F28 
57728 55ВА2ВОВрЗ5Ср2017 
57756 EBD118F0234E2346 


57744 2378B1C87EES5CS5CD 
57752 5ҒЕО7%9В02009С1Е1 
57760 230B78B120EEC979 
57768 ҒЕО128Ғ2Е1225ВЕО 
57776 Е1ОЕОЕОФООСФОЕО> 


57784 18F9EDA4B28EOCDEB 
57792 E4CDFCE4CDO7ESC3 
57800 42E1ED4B28E078A7 
57808 CA47E181FE01DA47 
57816 E1FE19D247E1CDE4 


57824 E1CSA2Ei1CS53E1891 
57852 475А5ЗЕОЗСАЕСОЗЕ 
57840 ESC1C57D47285107 
57848 07074F3E08918838 
57856 3F780600C5470E08 


57864 78CSOFOFOFA4FO500 
57872 EB210FFF19EBCSES5 
57880 EDBOE1C17CCB6F20 
$7888 OSF6206718EAE6DF 
97896 6724C10D20DAC178 


57904 A728042E0018BCC1 
37912 79803D4F06011852 
57920 4F789147C57918BD 
57928 OSCSOEOSCSERB21EO0 
57956 F819EBO12000E5ED 


57944 BOE17CCB6F2005F6 
57952 206718E9E6DF6724 
37960 C10D20E0C1784728 
57968 C61120FB19CZFZ2E1 
57976 Ер4ВоОСЕО7ВА7СА47 


57984 E181FEO1DA47E1FE 
57992 19D247E1CD92E2C3 
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58000 
58008 
58016 


58024 
58052 
58040 
58048 
58056 


58064 
58072 
58080 
58088 
58094 


58104 
58112 
58120 
58128 
58156 


58144 
58152 
58160 
58168 
58176 


58184 
58192 
28200 
38208 
28216 


58224 
58252 
28240 
28248 
38256 


58264 
28272 
58280 
28288 
58296 


28304 
58512 
5868520 
58528 
58556 


58344 


58552 


42Е1С55Е1891475А 
ЕЗЕОЗСАЕСЫЗҒЕЗ5О 
59C1D57D0707074F 


<ЕОВ91В83582р7806 
OOCS470EO878CS5E6 
O7 OF OF OF 4FO06000D 
CSESS45D360013ED 
BOE1Ci7CCB6F2005 


F62067 18EBE6DF67 
24C10D20D8C178A7 
28052ЕООСЗАЗЕ2СІ 
C307ES4F789147C5 
7918BF3a11EOE607 


4FSAC25CA7CA4S7E1 
7917171 7F SF 60647 
DBEFFE6COBODSFFF6 
4052C25CF12FB132 
S9EOCSA2E13A415EO 


3258EOC342bE1EDA4B 
19ЕОСПЕВЕ4ЗАЗЕЕО 
FSCDFCEACDOCESED 
5В2ҒЕОО6ФОЗЕВОЗ2 
SAEO14CSESDSCD6O 


ES78bE6FCA47EB7EE6 
FCA82810FS3A3AEO 
FE902003F 1183BF 1 
FEFC20364F0607EB 
C5241 3CD60E57B8E6 


FC47EB7EES6FCASC1 
A9201F10EA79C503 
C1C1C14F3SAZAEO?O 
FE2020050C20023E 
8F4FO600F1223EEO 


79C9E1110800195D 
54E1C1109ESASAEO 
FE80200AEDSB31E0 
O6103E901889FE90 
2OOCEDSB7BSC1506 


1S93EASCSSFESF132 
SEEOABAFC93AZ9EO 
4FO60009EDAB3A4EO 
CDFCEA4SASZEOB920 
OBOEOO783C47FE18 


5В020617Ер4207ЕО 
C93424EO0A7284FFE 
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58560 08C247E121011722 
58568 28EOSE17322DEO3E 
58576 01322ЕЕОЗЕ505252 


58584 ЕОЗЕО1522рЕО2100 
58592 18220СЕОАҒ2258ЕО 
58400 З25ВЕОЗ25СЕ0217Е 
58408 E4222FE0217EE722 
58416 51Е05200Е05207Е0 


58424 5208Е05215Е02219 
58452 ЕО521АЕ05Е06475А 
58440 С25СА7201рВОСАЯ42 
58448 Е121С01211400819 
58456 EDSB655C19D447E4 


58464 EDSBB2S5CA7EDS52D2 
58472 A7E4CDD2E478CDAC 
58480 E4C578CDBEOECDDF 
58488 Е4С17952С25ССВ77 
58496 CA42E13EC1BO2FCB 


58504 X8CB38CB3S8BO3239 
58512 ЕОЗ211ЕОЗАФЗЗЕОЗС 
585220 4F0618210000227D 
58528 SCCDO7ESCI42E10E 
58536 O2CS44E14FCB4720 


28544 16ҒЕВО>2В1АСВТЕСО 
58552 47ҒЕО2СВЕФСФЕЕОФ 
58560 COSEA4OB14FAFC9FE 
58568 010006010E81C9AF 
58576 47C9OFSDEFFF&B0D2 


58584 FFSEOSDSFAF1C9FS5 
58592 AFDIF4DBFFE462FD3 
28600 ЕҒЕ1С95Е17В82004 
$8608 Е1С547ЕЗАЗЗЕОЗО 

58616 В95В8ҒЗСОЗАЗЗЕОЗС 


58624 914F2E189047C9CD 
58652 OCES1844CD3FES3A 
58640 XIEOSC91FSS5SF8783 
58648 CBSFCBSFCB3F2806 
58656 FS3SE2OBA67F1471F 


58664 SF3A3DE0825F 1500 
58672 191EO7F1E6022802 
58680 SF3D83323EEOC93E 
28688 1890570FOFOFE6GEO 
28696 SF7AE618F44067C9 


58704 EDAZZAEO2Z2ZZSO6EOCO 
58712 ED4B34EO2A36EOC9 
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58720 ES467CEE2067CB6F 
58728 2001254ЕЗАЗЕЕООЬ 
58726 O7ED442807CB11CB 


58744 103D20F9E1C9 
START OF CHARACTER TABLE 


Of course we need a Basic program to run our code. How about the 
same Basic program we used for 64 column mode? You see, with 
that setup at the beginning of the code, the same addresses 
which call these setup routines call them for the 80 column 
mode. А11 we have to do is change the first line of the program 
to load our new code program and РОКЕ 57580 with 8 instead of 6 
in line 10. We won't repeat that demo program here. 


Our word processing code, however, will not work without some 
modifications of all the routines that use a length-of-line 
check like ENTER for a new line, DELETE, the cursor keys, etc. 
All must be revised from 64 to 80 columns and since they don't 
come out to an even character space the UPDPOS routine must Бе 
called a lot more often to update not only CURPOS but also DFBIT 
which depend upon the value in MARGIN. In writing the characters 
to the screen these special variables are also used automatic- 
а11у by WRCH. We leave it for the student to revise the word 
processor code for BO column mode. It's about time you wrote a 
routine on your own. If you never write a program how are you 
ever going to learn about all the pitfalls that I can't possibly 
tell you about but have to learn on your own? People’s minds 
work difFerently and some forget to do one thing while others 
forget to do other things so each person has to learn what his 
or her tendencies are. In this case you are just revising a 
source program so it should be easier. Work slowly and carefully 
and think through everything that you have to do and in what 
order. Once you write your own code you gain an appreciation for 
what other people have to go through to write code. That first 
program is always the hardest to give birth to. There are people 
around who can think in code just as you do in Basic. 


AY 


CHAPTER 5 TWO SCREEN MODE 


We now proceed to the two screen mode. These are two normal 22 
column wide, 24 line deep screens with опе attribute per 
character space that can be alternately displayed on the TV or 
monitor. According to your manual this mode is supposed to be 
used when doing rapid animation. One can write to either screen 
et anytime no matter what screen is being displayed at the 
time. 


А word of caution to the game writer. The fastest you can change 
screens is of course 60 times per second which is faster than 
the human eyes can detect. Remember that motion pictures flick 
by the eye at 24/sec. so slow down your screen changes. That is 
not the caution. The caution is that if you are moving sprites 
across the screen and shooting at them, this requires detecting 
when а sprite has been touched, and this must be done оп both 
screens not just one. Sometimes it easier to work in the single 
screen mode. 


Like the double screen mode, the 2 screen mode is not supported 
from Basic so once again we have to write some routines, again 
courtesy of the Timex Technical Manual. The same general format 
will be used with an entry system from Basic. They are for the 
most part the same ones that we used in the 64 and 80 column 
modes with an additional routine included to transfer data from 
опе screen to the other. 


VIMODE is used to select which screen is being displayed. А 
value of О is of course the regular 1 screen mode. We have seen 
that 6 and В give the double screen 64 and 80 column mode. А 
value of 2 will give you the high resolution graphice mode. 
Using 128 will open both display files and display DFILE 1 оп 
the monitor. 129 will keep both files open but display DFILE 2. 
Я 4 will allow work on the contents of DFILE 1 and a 5 on DFILE 
2. Ап analysis of this bitwise is very interesting. Bit 7 "on" 
turns out to be the 2 screen mode. Bit О "off" gives, Бу 
default, DFILE 1. Bit О "on" gives DFILE 2. Bit 3 (value of 4) 
activates writing or changing DFILE 1 or 2 depending upon bit O 
being on or off. 


As with the previous routines, since Chunk 7 is used to store 
the Bank Switching routines to make room for Opening DFILE 2, we 
will be writing to Chunk 6 at address 57544. 
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DEFINITIONS 
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SCRSZ EQU 24: SCREEN SIZE IN LINES 
SCINIT EQU #1701: SCROLL CONTROL INIT 
CLINIT EQU #1800: CLEAR SCREEN INIT 
CHRSET EQU #3C00: ROM CHAR TABLE - 256 
GRPHST EQU ((GRFST)-#100): STND GRAPHICS TABLE 
CHNGVID EQU ЖОЕВЕ: ROUTINE IN EXROM 
RECLEN EQU #1720: ROUTINE IN HOME ROM 
ININT EQU #5029: ROUTINE IN HOME ROM 
ҒР2А EQU #3193: ROUTINE IN HOME ROM 
HREXPT EQU #FF: HOME ROM EXT SELECT PORT 
DKHSPT EQU «F4: HORIZONTAL SELECT REG PORT 
VARS EQU #5C4B: SYSTEM VARIABLES 
CHRADD EQU #5C5D 
STKEND EQU %5С65 
UDG EQU %5С?В 
COORDS EQU #5C7D 
АТТКР EQU #5C8D 
MASKP EQU #5C8E 
PFLAG EQU #5C91 
КАМТОР EQU %5СВ2 
РКАМТ EQU #5СВ4 
VIDMOD EQU %5СС2 
FARAMS EQU #SCC3: (23747) 

DRIVES EQU #6840 


INSERTSZ EQU #7B00 - DRIVES 
MCVESZ  EQU DRIVES - #6000 
DES7 EQU #FFFF - MOVESZ +41 
FIX EQU DES7 - #6000 
FIXTBL EQU #1000 


INPUTS AND ENTRIES 


57344 


20 


57345 C346EO 


57548 
27351 


CSEEEO 
0000 


РАТАВ DEFB 321 DATA BYTE FROM BASIC 


WRCHRB JP WRCHO: ENTRY WRCHAR 


WRSTRB УР WRSTRO: ENTRY WRITE STRING 


LINCOL DEFW О: SET CURSOR POSITION 


sLINCOL = START LINE #, LINCOL +1 = COLUMN # 
SETCUB JP SETCBO: ENTRY SET CURSOR POSN 


57353 
57556 


С517Е1 
0018 


CLRCTL DEFW #1800: CLS CONTROL, 


sCLRCTL = START LINE 4, CLRCTL + 1 = LINE CT 
CLRSCHB JF CLRSBO :ЕМТКҮ FOR CLEAR SCREEN 
SPAREO DEFW 0,0: NOT USED (ALIGNMENT ONLY) 


57:58 
57561 
57265 
57569 
57571 
57574 
57577 
57580 

15 
57581 
57584 


C3D4E1 
00000000 
00000000 
0000 


БРАКЕ 1 DEFW 0,0: 
GETCTL DEFW O:GET CONTR FROM BASIC 


CSSCE2 GTCHRB 
C3DCE2 GETATB 
СЕҒІЕ2 GETCUB 
оо VIMODE 


PRINT ОРЕКАТТОМ TO DF2, 


СЗОЕЕЗ SETMDB 
0117 SCRCTL 


JF GTCHBO: ENTRY FOR GET CHAR 
JP GETABO: ENTRY FOR GET ATTR 
ЧЕ GETCBO: ENTRY FOR GET CURSOR FOSN 
DEFB О: VIDMODE OzNOR, 128-DF1, 1=DF2 


4- PRINT OFERATION TO DF1 


JP STMDBO: ENTRY TO SET VIDMODE 
DEFW #1701: SCROLL CONTL 


— 
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rSCRCTL = STARTING LINE #, 
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SCRCTL + 1*LINE COUNT 


57386 С527Е1 SCRLB JP SCRLBO: ENTRY TO SCROLL 

OTHER VARIABLES 

57589 17 BOTLN DEFB 25: BOTTOM LINE +1 LINE АТ WHICH 
: SCREEN IS CONSIDERED FULL. AUTO SCROLL IF SCRLCT <>0 

57590 ОО SCRLCT DEFB 1: SCROLL СТ-1 + # OF TIMES AUTO 

$7591 OOSC CHTBL DEFW CHRSET: ADDR OF CHAR TB SCROLL 

57393 EOES GRTBL DEFW GRPHST: ADDR OF UDG TABLE 

57395 20 LINLEN DEFB 321 LINE LENGTH 

57396 2118 CURFOS DEFW #1821: CURSOR POSN INTERNAL 

57398 0040 DFADRS DEFW #4000: CURRENT DISPAY ADDR 

57400 00 MASKE DEFE О: MASK FOR CHAR 

57401 OO ATTBYT DEFB О: CURRENT ATTR (BLACK ON WHITE) 

57402 80 GTINDX DEFB 128: INDEX ADJ CHCODE IN GETCHAR 

57403 0000 STRGCT DEFW O: REMAINING CT FROM WRSTR WHEN 
: SCREEN FULL 

57405 0000 SPARE2 DEFW O 

57407 ОО ATTMSK DEFB O 

57408 C3DAE3 СОРҮЅВ JP COPYSO: ENTRY TO COPY SCREEN 

57411 CSF5EA EXCHSB JP EXCHBO: ENTRY TO EXCHANGE SCREENS 

WRITE CHARACTER 

:HERE FROM BASIC TO DISPLAY CHAR IN DATAB 

57414 ЗАООЕО ` WRCHO LD А, (DATAB) 

:1DISPLAY CHAR IN DATAE 

57417 CDA2E4 WRCHAR CALL LDATTR: GET ATTR AND MASK 

57420 CDSDE6 WRCHO1 CALL LDPOSN: LD BC=CURPOS HL=DFADRS 

57423 FE20 CP 32: TEST VALID RANGE 

57425 DACAEO JP C, INVPAR 

57428 FEAS CP 165 

57450 D2C4EO JP NC, INVPAR 

57433 CS PUSH BC: SAVE CURSOR FOSN 

57434 ЕЕВО CP 128: ASCII PRINTABLE? 

57436 3815 JR C, WRCHR12 

57438 РЕЗО CP 144: STD UDG CHAR? 

57440 3809 JR C, WRCHR11 

57442 ED4B7B5C LD BC, (UDG): DO UDG 

57446 OS DEC B 

57447 D670 SUB 112: ADJUST FOR INDEX 

57449 180C JR МЕСНІЗ 

57451 EDABS1EO WRCH11 LD BC, (GRTBL): ADDR OF GRAPHICS TABLE 

57455 D660 SUB 96: ADJUST FOR INDEX INTO TABLE 

57457 1804 JR WRCH13 

57459 EDABZFEO WRCH12 LD BC, (CHTLE): CHARACTER TABLE 

57463 EB WRCH13 EX DE, HL 

57464 2600 LDH, O 

57406 ФЕ LD L, A 

57467 29 ADD HL, HL 

57468 29 ADD HL, HL 

57469 29 ADD HL, HL 

57470 09 ADD HL, BC 


57540 
57542 


2005 


3c WRCH14 
B9 WRCH1S 
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POP BC 
EX DE, HL 


LD А, С: TEST IF END OF LINE 
DEC Я 

LD А, (LINLEN) 

JR NZ, WRCH14 

INC А: START OF NEW LINE 

DEC B: ALSO BUMF B TO NEXT LINE 
LD C, А 

JR WRCHiS 

INC А 

CF C: TEST IF START OF LINE 
PUSH DE: TEST IF OFF SCREEN 
CALL Z, TVFULO 

FOP DE 


TO FUT CHAR IN DFILE 


cs WRCH2 
ES 

ЗАЗВЕО 

O6FF 


1F WRCH3 


o8 WRCHS 


15 .WRCH7 


WRCHXT 


ОЕОО GOODRET 


обоо ЕКККЕТ 


OEO1 INVPAR 


PUSH BC: SAVE CUR POSN 
PUSH HL: AND DFILE ADDR 
LD A, (MASKB) 

LD В, 255: ASSUME OVER ON 
RRA: TEST FOR OVER 

JR C, WRCHS 

INC B: TURN OVER OFF 


RRA 
RRA: TEST FOR INV 
SBC A, A 


LD C, А: С=255 IF INV, ELSE О 
LD A, 8: COUNTER 

AND A: CLEAR FLAGS 

EX DE, HL 

EX AF, AF’: SAVE COUNTER 

LD A, (DE): GET OLD PIXEL ROW 
AND В: ADD OVER, A=255 IF OFF 
XOR (HL): ADD IN NEW PIXEL 

XOR C1 INVERT IF ON 

LD (DE), As PRINT IT 

EX AF, АР”: GET COUNTER BACK 
INC Dí: UPDATE FOINTERS-NEXT PIXEL ROW 
INC HL 

DEC A 

JR NZ, WRCHS 

DEC D: ADJUST DFILE ADDR 

EX DE, HL: DFILE ADDR TO HL 
CALL UPDATT: UPDATE ATTR FILE 
POP HL: STARTING ADDR 

РОР ВС: CURSOR FOSN 

DEC С: ADJUST CUR РОЗМ 

INC HL 

CALL STPOSN 

LD C, О: КЕТ BCzO 

LD В, О: ENTER HERE WITH C <>0 
RET 

LD C, 1:RET ВС=1 FOR INVALID PARAM 
JR ERRRET 


x 


Chapter 5 Advanced 2068 Machine Code Раде 93 

57544 5Е18 TVFULO LD А, SCRSZ 

57546 90 SUB B: A = LINE # 

57547 57 LD D, ñ: SAVE IN D 

57548 SA2DEO LD à, (BOTLN): GET BOTTOM LINE 

57551 ВА СР D 

57552 D228E6 JP NC, UPDPOSN: OK, RET TO WRITE CHAR 
tVIA UPDATE AND STORE РОЗМ 

57555 ЗА2ЕЕО LD А, (SCRLCT): TEST SCROLL COUNT 

57558 3D DEC А 

$7559 200B JR NZ, TVFUL1: AUTOSCROLL WITH COUNT 

$7561 ЗЕО1 LD А, 1 

57505 522ЕЕО LD (SCRLCT), А: RESET SCROLL CT 

57566 С! РОР ВС: DISCARD RETURN TO WRITE CHAR 

57567 С! РОР ВС 

57568 OEO3 LD C, 5: RET BC#3 FOR SCREEN FULL 

57570 18DD JR ERRRET 

57572 522ЕЕО TVFUL 1 LD (SCRLCT), A 

57575 ED4B28E0 LD BC, (SCRCTL): GET STARTING LINE/CT 

57579 С241Е1 JP SCRLO 

WRITE STRING 

tHERE FROM BASIC ENTRY TO WRITE CHARACTER STRING TO SCREEN 


:STRING IDENTIFIER (CH.CODE) IN SYS VAR PARAMS AT 5СС5 

57582 CDB8E6 CALL GETSTRG 

57585 C8 RET Z: NULL OR STRING NOT FOUND 
tENTRY FROM М/С W ADDRESS OF CHAR.CODE STRING IN HL, LEN IN ВС 


WRSTRO 


57586 CDA2E6 WRSTRG CALL LDATTR: GET ATTR & MASK CTLS 
57589 7E WRSTLF LD А, (HL): GET CODE 

57590 ES PUSH HL: SAVE ADDR 

57591 CS PUSH BC: SAVE LEN 

57592 CDACEO CALL WRCHO1 

57595 78 LD А, B: TEST IF GOOD 

57596 В! OR C 

57597 2009 JR NZ, WRSTX1: EXIT IF INVALID 
57599 C1 WRSTRS POP BC: COUNT 

27600 E1 POF HL: ADDR 

57601 25 INC HL: NEXT CHAR 

37602 ОВ DEC ВС: ADJ CT 

37603 78 LD А, B: DONE? 

$7604 B1 OR C 

57605 20EE JR NZ, WRSTLP: WRITE NEXT CHAR 
57607 C9 КЕТ: BCxO 

57608 79 WRSTX1 LD А, С: SAVE ERROR 

57609 ҒЕО1 СР i: TEST IF UNRECOGNIZABLE CODE 
57611 28F2 JR Z, WRSTR3 

57613 Е! РОР HL: REMAINING COUNT TO HL 
57614 223BEO LD (STRGCT), HL: STORE 

$7617 E1 РОР HL: ADDR 

57618 OEOZ LD C, 3: RET BCs3 

57620 0600 WRSTX2 LD B, O 

37622 C9 RET 
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POSITION CONTROL 


1 HERE 
$7623 
: HERE 
57627 
57630 
57655 
57636 


FOR BASIC ENTRY. 
ED4BO7EO SETCBO 
IF LINCOL IN EC 
CDOCE6 SETCUR 
CD1DE6 
CD28E6 
С<ВҒЕО 


SCROLL 


: HERE 
57659 
: HERE 
57645 
57644 
57645 
57648 
57649 
57651 
57654 
57656 
57659 
57662 
57665 
257666 
57668 
57669 
576709 
57675 
57674 
57075 
37678 
58679 
38680 
57681 
57682 
57683 
57685 
57686 
57687 
57688 
57689 
57691 
37692 
57693 
57695 
57696 
57698 
57699 
57700 
57702 
57703 
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PARAMETERS IN LINCOL 


LD ВС, (LINCOL) 
CALL TSTPAR 
CALL CONVFM: 
CALL UPDPOSNi: 
ЈР GOODRET 


CONVERT INTERNAL FORMAT 
UPDATE POSN 


FROM BASIC TO SCROLL SCREEN 


ED4B28EO SCRLBO 


WITH CONTROL IN BC: 


78 SCROLL. 


CS SCRLO 


7D TESTAO 


78 INSDBLK 


47 LOOF 


78 LOOPO 


LD ВС, (SCRCTL) : 
В=# OF LINES, 

LD А, В: 

АМО А 

JP 2, INVPAR: 

ADD А, C 

CP 1: ERR IF B+C=1 

JP C, INVPAR 

CP 25: ERR IF B+C>24 

JP NC, INVPAR 

CALL SCRLO: DO IT 

JP GOODRET: RET BC=0 

PUSH BC 

LD A, 24: 

SUB C 

LD B, A 

LD A, (LINLEN) 
INC А: COL O 

LD C, А 

CALL LNBO 

POP ВС: ORIG BC 

PUSH HL 

PUSH ВС: 

LD А, L1 

AND А 

JR Z,STBLK 


GET CONTROL INFO 
C=STARTING LINE # 
TEST VALIDITY 


ERR IF COUNT = 0 


GET STARTING LINE INT FORMAT 


SAVE AGAIN 
TEST IF START OF BLOCK 


LDC, А: 
LD A, 8 


GET # OF LINES 


TEST AGAINST TOTAL LINES 
GRBLK: TOTAL >BLOCK 

LD A, B 
LD B, Oi 
PUSH BC 
LD B, А: 
LD C, 8: 
LD A, B 
PUSH BC 


REMAINING COUNT 


BeLINES THIS BLOCK 
SCAN LINES 
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57704 OF RRCA 
57705 OF ЕКСА 

57706 ОЕ ЕКСА: CALC # OF BYTES 

57707 АҒ LD С, А 

57708 0500 LD B, О: ВС=52ж# OF LINES 
57710 EB LOOP 1 EX DE. HL 

57711 21ЕОЕҒ LD HL,#FFEO: GET ADDR OF PREV LINE 
57714 19 ADD HL, DE 

57715 EB EX DE, HL: TO DE 

57716 ES PUSH HL: SAVE ADDR 

57717 EDBO LDIR: DO A LINE 

57719 Е! POP HL 

57720 24 INC H 

57721 С! РОР ВС 

57722 OD DEC C 

57725 20E9 JR NZ, LOOPO: MORE SCANS 
57725 C1 POP BC: RESIDUAL LINE COUNT 
57726 78 LDA, B 

57727 А7 AND А 

57728 2804 JR Z, SCRLXT: DONE 

57750 2ЕОО LD L, О: START OF NEXT BLOCK 
57752 18CB JR TESTAO 

57754 C1 SCRLXT POP BC: ORIG BC 

57735 Di РОР DE: STARTING ADDR 

57736 CS PUSH BC: SAVE ORIG BC 

57757 68 LD L, B: # OF LINES SCROLLED 
57758 2600 LD H, о 

57740 29 ADD HL, HL: 52%# OF LINES 
57741 29 ADD HL, HL 

57742 29 ADD HL, HL 

57743 29 ADD HL, HL 

57744 29 ADD HL, HL 

57745 44 LD B, H: COUNT TO BC 

57746 4D LD C, L 

57747 62 LD H, D: ADDR TO HL 

57748 ФВ LD L, Е 

57749 CD92E6 CALL CALCATT: ATTR ADDR TO HL 
57752 EB EX DE, HL 

57755 21EOFF LD HL, 65504: -32 

57756 18 ADD HL, DE 

57757 EB EX DE, HL 

57758 EDBO LDIR: SCROLL ATTR 

57760 C1 POP BC: ORIG BC 

57761 79 LD А, C: STARTING LINE 

57762 80 ADD à, B: ADD & OF LINES MOVED 
57755 ZD DEC А: LAST LINE SCROLLED 
57764 4Е LD C, А 

57765 0601 LD B, 1: CLEAR LINE 1 

57767 1845 JR CLRSCO: CLEAR VACATED LINE AND RET 
57709 АҒ GRBLK LD C, А 

57770 78 LD A, B 

57771 91 SUB С: ADJ TOT LN CT BY # LNS THIS BLK 
57772 47 LD B, А 


57773 CS FUSH BC 
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^ 


79 LD А, C: LOAD # OF LN THIS BLOCK 
18B2 JR LOOP 

05 STBLK DEC B: DEC LINE CT 

с5 РИЗН ВС 

OEOB LDC, 8 

cS STBLKO PUSH BC: SAVE COUNT 

EB STBLK1 EX DE, HL 

21ЕОҒВ LD HL, #F8E0:0729H 

19 ADD HL, DE 

EB EX DE, HL: ADDRS OF FREV LINE 
012000 LD BC, 32 

ES PUSH HL 

EDBO LDIR: DO MOVE 

E1 POP HL 

24 INC H: NEXT SCAN LINE 

C1 POP BC 

OD DEC C 

20ED JR NZ, STBLKO 

Ci POP BC: REMAINING LINE COUNT 

78 LD A, B 

A7 AND A 

28B9 JR Z, SCRLXT 

1120F8 LD DE, #F820 

19 ADD HL, DE 
С551Е1 JP ТЕБТАО: BCsLINE СТ, HL-DF ADDR м. 
SCREEN 


FROM BASIC ENTRY TO CLEAR SCREEN 
EDABOCEO CLRSBO LD BC, (CLRCTL): GET CONTROL INFO 
IF BC=LINE COUNT AND STARTING LINE # 


78 CLRSCN LD A, B 
^7 AND à: TEST VALIDITY 
Caca JP Z, INVPAR 

81 ADD А, C 

FEO1 CP 1 

DACAEO JP C, INVPAR 

FE19 СР 25 

D2C4E0 JP NC, INVPAR 

CDEEE1 CALL CLRSCO: DO IT 
C3BFEO JP GOODRET: BC=O 

CDA2E6  CLRSCO CALL LDATTR: GET ATTR CTL 
cs PUSH BC 

ЗЕ! 8 LD A, 24 

91 SUB C 

47 LD B, A 

SASSEO LD А, (LINLEN) 

5С INC à: SET TO COL O 

4F LD C, A 

CD3AE6 CALL LNBO У. 
=0 LD р, B 

59 LD E, C: SAVE POSN 

Ci POP BC: ORIG BC 


DS PUSH DE 
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57858 
57859 
57860 
57861 
57862 
57865 
57865 
57866 
57867 
57869 
57870 
57872 
57873 
57874 
37876 
$7877 
37878 
57880 
57881 
57882 
57883 
57884 
57886 
57887 
57888 
57889 
57890 
57892 
57893 
57895 
37896 
257897 
57898 
57899 
57901 
$7902 
57903 
57906 
57907 
57909 
57910 
57911 
57912 
57915 
57915 
57916 
57917 
57918 
57921 
57922 
57925 
57925 
57926 
57927 
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CLRSC1 


CLRSC2 


CLRSC3 


CLRSCA 


CLRSCS 


LD A,L: GET # OF LINES THIS BLOCK 
RLCA 
RLCA 
RLCA 

LD C, A 
LD А, 8 
SUB C 
CF B 

JR C, CLRSC7 

LD A, В: # FO LINES 

LD B, O: REMAINING LINES 


PUSH BC 
LD B, à 
LD C, 8 
LD A, B 
PUSH BC 
AND 7 
RRCA 
RRCA 
RRCA 


LD C, А: ВСе52%% OF LINES 

LD B, О: C=O IF 256 FOR В LINES 
DEC C 

PUSH HL 

LD D, H 

LDE, L 

LD (HL), Or: CLEAR DF1 

INC DE 

LDIR 

POP HL 

INC Н: NEXT SCANLINE 

POP BC 

DEC C 

JR №, CLRSC4 

PUSH HL: SAVE NEXT ADDR 

DEC H: LAST SCAN ROW 

CALL CALCATT: GET ADDR IN ATTR FILE 
LD А, В: # LINES THIS BLOCK 

AND 7 


RRCA 

RRCA 

RRCA 

LD C, A: BC =52%# OF LINES 
LD B, O 

DEC C: ADJUST 

LD D, H 

LDE, L 


LD А, (ATTBYT): STORE VALUE 
LD (HL), ñ: UPDATE ATTR FILE 
INC DE 

LDIR 

РОР HL 

POP BC: TOTAL LINE COUNT 

LD А, В 
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97928 А7 
37929 2805 
57951 2ЕОО 
57955 C302E2 
57956 Сі 
57957 С528Е6 
57940 4F 
57941 78 
57942 91 
57945 47 
57944 CS 
57945 79 
57946 1855 


GET ROUTINES 
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CLRSXT 


CLRSC7 


AND А 
JR Z, CLRSXT 
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LD L, О; HL*START OF NEXT BLOCK 
JP CLRSC1: B=REMAINING LINE COUNT 


РОР BC: POSITION 


JP UPDFOSN: RET VIA UPDATE & ST POSN 
LD C, ñ: SAVE # LINES THIS BLOCK 


LD A, B 


SUB C: ADJ LINE COUNT 


LD B, A 


PUSH BC: REMAINING LINE COUNT 
LD А, C: REMAINING LINE CT 


JR CLRSC3 


:HERE FROM BASIC ENTRY TO GET CHARACTER 


: (RETURNS CODE FOR CHARACTER AT POSITION IN GETCTL) 
LD BC, (GETCTLO 1 


57948 EDAB19EO 


: HERE IF CONTROL IN BC 


57952 CDOCE& 
57955 CD1DE6 
57958 CD2DE6 
57961 EDSB2FEO 
57965 0660 
37967 SE80 
27969 ®2%АЕО 
57972 14 
57973 EB 
57974 СӘ 
57975 DS 
57976 ES 
57977 1А 
57978 АЕ 
57979 2810 
57981 FS 
57982 ЗАЗАЕО 
57985 РЕЗО 
57987 2003 
57989 Ғі 
57990 1827 
57992 Ғі 
57995 SC 
57994 2025 
57996 5р 
57997 4F 
57998 0607 
58000 14 
28001 23 
58002 1A 
58003 AE 
38004 А9 
58005 2018 
38007 10F7 


GTCHBO 


GTCHAR 


GTCH1 


GTCH2 


GTCH23 


GTCH3 


GTCH31 


CALL TSTPAR: TEST PARAMETERS 


GET CONTROL INFO 


CALL CONVFM: CONVERT TO INT FORMAT 


CALL CALCFOS: GET DFILE ADDR 
CHAR TABLE 

LD В, 96: # OF PRINTABLE CHARS 
LD А, 128: SET ADJ INDEX 


LD DE, (CHTBL) 1 


LD (GTINDX), A 


INC D: ADJ TO START OF TABLE 
EX DE, HL: TO HL 

PUSH BC: SAVE COUNT 

PUSH DE: SAVE DF ADDR 

PUSH HL: SAVE ADDR CHAR TABLE 
LD A, (DE): SCAN ROW FROM DF 


XOR (HL): TEST AGAINST CHAR SET 


JR 2, GTCH3: MATCH 


PUSH AF 
LD A, (GTINDX) 


CP 144: STANDARD GRAPHIC? 


JR NZ, GTCH23 
POP AF 


JR GTCH4: DON’T TEST INVERSE 


FOP AF 


INC A: TEST INVERSE 
JR м2, GTCH4: OFF 
DEC A: A =1 FOR INVERSE 


LD C, A: С-о FOR MATCH, -1 FOR INVERSE 


LD B, 7 


INC D: NEXT SCAN IN DF 
INC HL: NEXT CHAR BYTE 


LD A, (DE) 
XOR (HL) 
хок C 


JR NZ, GTCH4: NO MATCH 
DJNZ GTCH31: NEXT SCAN 
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(НЕКЕ IF MATCH WITH (SP)=CHAR IN CHAR SET 


: (SF+2)=CHAR IN DF, 
58009 79 

58010 С! 

58011 C1 

58012 C1 

58015 4F 

58014 ЗАЗАЕО 

58017 90 

58018 
58020 2005 
58022 ОС 
58022 
58025 
58027 4Е 
58028 
58030 C9 
$8051 Ei 
58032 
58035 19 
58056 D1 
58057 С! 
58058 10BE 
: HERE 
58040 EB 
58041 
58044 
58046 
58048 
58052 
58054 
58056 
58058 
58060 200B 
58062 EDSB7BSC 
58066 15 
58067 
58069 
58071 
58073 48 
58074 АҒ 
58075 C9 


GTCH32 


GTCH4 


200A 
ЕрЭВЗ1ЕО 
0610 
SE9O 
1807 


FE9O GBTCHS 


GTCHS 


GET ATTR BYTE 


z HERE 
58076 
: НЕКЕ 
58080 
58083 


EDAB19EO GETABO 
WITH LINCOL IN BC 
CDOCE6 GETATTR 
CD1DE6 

58086 CD2DE6 

98089 CD92E6 

58092 7E 

58093 4F 


(SF+5) =CHAR COUNT 


LD А, С: А=-1 IF MATCH ON INVERSE 
РОР BC 

POP BC 

POF BC: CLEAR STACK 


LD C, A: B=COUNT С--1 IF MATCH ON INV 
LD A, (GTINDX): ADJ CHAR CODE 

SUB Bs A=CHAR CODE 

CF 32: SPACE? 

JR NZ, бТСН22 

INC Сі INVERSE SFACE? 

JR NZ, GTCH32 

LD А, 145: SET CODE FOR GRAFHIC BLOCK 
LDC, A 

LD B, O 


RET: CHAR CODE IN А AND BC 

POP HL: HERE WHEN NO MATCH 

LD DE, 8: LOOK AT NEXT CHAR IN SET 
ADD HL, DE 

POP DE: DFILE ADDR 

РОР BC: CHAR COUNT 

DJNZ GTCH2: LOOK AGAIN 


EX DE, HL: DFILE ADDR TO HL 

LD А, (GTINDX) 

CF 128: STANDARD CHAR? 

JR NZ, GTCHS: TRY GRAPHICS 

LD DE, (GRTBL): STD GRAPHIC TABLE 
LD B, 161 * OF ENTRIES 

LD A, 144: INDEX 

JR GTCH1 

CF 144: 
JR NZ, 
LD DE, 


STD GRAFHIC? 
GTCH6: ‘DONE IF NOT 
(UDG): TRY UDG GRAPHIC 
ADJ START 
21: # OF ENTRIES 
165: INDEX 
JR GTCH1 
LD С, B: HERE WHEN NO MATCH ANYWHERE 
ХОК A: SET BC & A=0 
RET 


FROM BASIC ENTRY TO GET ATTR 


LD BC, (GETCTL) 
CALL TSTPAR: 
CALL СОМУРМ: 
CALL CALCPFOS 
CALL CALCATT 
LD А, (HL): ATTR IN А 
LD С, А: SAVE INC 


TEST PARAMETER 
CONVERT TO INT FORMAT 
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58094 0600 LD в, O 

58096 C9 RET 

GET CURSOR POSITION 


t НЕКЕ FROM BASIC ENTRY 
58097 EDABZAEO GETCBO LD BC. (CURPOS): GET INTERNAL FOSN 


58101 CD1DE6 CALL CONVFM: CONVERT TO USER FORMAT 
58104 5А55ЕО LD А, (LINLEN) 

58107 B9 CP C: END OF LISTING? 

$8108 200B JR NZ, GETC1: NO 

98110 OEOO LD C, О: START OF NEXT LINE 

58112 78 LD А, В 

58115 JC INC А: BUMP TO NEXT LINE 

58114 47 LD B, А 

58115 ҒЕ18 СР 24: КЕТ 


GET CURSOR POSITION 


: HERE FROM BASIC ENTRY 
58097 EDAB3S4EO GETCBO LD BC, (СОКРО5) : GET INTERNAL FOSN 


58101 CD1DE6 CALL CONVFM: CONVERT TO USER FORMAT 
58104 SASSEO LD А, (LINLEN) 

28107 B9 CP C: END OF LISTING? 

58108 200B JR NZ, GETC1: NO 

58110 OEOO LD C, O: START OF NEXT LINE 
58112 78 LD A, B 

58115 3C INC А: BUMP TO NEXT LINE 
58114 47 LD B, А 

58115 FE18 CP 24: OFF SCREEN? 

58117 3802 | JR C, GETC1: NO 

58119 0617 LD B, 23: POSN ON BOTTOM LINE 
58121 ED4307E0 GETC1 LD (LINCDL), BC: SAVE 

58125 C9 RET: VALUE ALSO IN BC 


VIDEO MODE CONTROL 


: HERE FROM BASIC ENTRY WITH MODE IN VIMODE 
58126 5А24ЕО STMDBO LD А, (VIMODE) 
: HERE IF VIDMODE IN А 


58129 47 SETMODE LD B, As STORE IN B 
58150 A7 AND A 

58151 2815 JR Z, SETMDO: TEST VALIDITY 
58155 РЕВО CF 128 

58155 2811 JR Z, SETMDO 

58157 ҒЕО1 СР 1 

58159 2800 JR 2, SETMDO 

58141 РЕО4 CF 4: HANDLE 4 AND 5 
58145 САВАЕЗ JP Z, FRFV 

58146 FEOS СР 5 

58148 САВАЕЗ JP 2, FRFV 

58151 CSCAEO JF INVFAR 

98154 SAC25C SETMDO LD А, (VIDMOD) 


58157 A7 AND ñ 
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58158 205A JR NZ, SETMD2: DF2 OFEN 
58160 ВО OR B 

58161 CABFEO JF Z, GOODRET 

: INITIAL OPENING OF 2ND FILE 

58164 210117 SETMD1 LD HL, SCINIT: INITIALIZE PARAMETERS 
58167 2228ЕО LD (SCRCTL), HL: SCROLL CONTROL 
58170 5Е17 LD А, 25 

58172 322DEO LD (BOTLN), А: BOTTOM LINE 

58175 3E01 LD А, 1 

58177 222ЕЕО LD (SCRLCT), А: SCROLL COUNT 

58180 3E20 LD A, 32 

58182 323360 LD (LINLEN), А: LINE LENGTH 

58185 210018 LD HL, CLINIT 

58188 220CEO LD (CLRCTL), HL: CLEAR SCREEN CONTROL 
58191 AF ХОК A: SET A-O 

58192 32SBEO LD (STRGCT), А: WRITE STRING REMAINING 
58195 525СЕО LD (STRGCT+1), А: COUNT 

58198 21003C LD HL, CHRSET: STD CHAR TABLE 

58201 222FEO LD (CHTBL), HL 

58204 21ЕОЕ5 LD HL, GRPHST: STD GRAPHIC SET 
58207 2231EO LD (GRTBL), HL 

: INITIALIZE PARAMETE: 

58210 3200E0 LD (DATAE), А: DATA BYTE 

58213 5207ЕО LD (LINCOL), à: COLLUMN 

58216 2208ЕО LD (LINCOL+1) А: LINE 

58219 3219EO LD (GETCTL), А: GET COLUMN 

58222 521АЕО LD (GETCTL+1), А: GET LINE 

58225 21C012 LD HL, INSERTSZ 

58228 114008 LD DE, MOVESZ 

58231 19 ADD HL, DE: TOTAL ROOM NEEDED 

58252 EDSB655C LD DE, (STKEND) 

58236 19 ADD HL, DE: ADD MEMORY IN USE 

58237 DABSEZ JP C, EXTNRM: NOT ENOUGH MEMORY 
58240 EDSBB2SC LD DE, (RAMTOP) 

58244 А7 AND А 

58245 EDS2 SBC HL, DE 

58247 DABSEZ JP NC, EXTNRM: NOT ENDUGH MEMORY 
58250 78 SETMD2 LD А, B: MODE TO А 

58251 СОЕЗЕ5 CALL ENBLEXT: ENABLE ROM EXT 

58254 CDCDES CALL GETVAL: НИМ VAL TO B, VIDMOD TO C 
58257 CS FUSH BC: SAVE 

58258 78 LD A, B 

58259 А7 | AND А: ZERO? 

58260 2001 JR NZ, SETMZi1 

58262 79 LD A, C 

58263 CDBEEO SETM?1 CALL CHNGVID 

58266 СРООЕБ CALL ENBLHOME 

58269 C1 POP BC 

58270 79 LD А, С 


58271 32C25C SETMD3 LD (VIDMOD), А: UFDATE VIDMODE 
58274 ЗАЗЗЕО UFDATE LD А, (LINLEN) 

38277 3C INC А 

58278 4Е LD C, А: COLUMN LEN 

58279 0618 LD B, 24 
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58281 
58284 
58287 
58290 
58295 
58295 
58298 
58501 
58502 
58504 
28307 
58508 
58510 
28512 
28514 
58517 
38318 
5852 

58522 
58324 
58527 
5852 


210000 
227D5C 


EXTNRM 


FRFV 


DTADF1 


DTADF2 


COPY SCREEN ROUTINE 


s СОРУ 
: HERE 
58730 
58333 
58554 
58337 
58559 
58540 
58343 
58344 
58748 
58351 
58354 
58557 
58560 
58363 
98366 
58569 
58572 
58575 
58:78 
58279 
58582 
58586 
58290 
58592 
58395 
58596 
58598 


Advanced 2068 Machine Code Chapter 
LD HL, O: BC= 0, HOME FOSN 
LD (COORDS), HL: INIT FLOT РОЗМ 
CALL UFDFOSN: UPDATE & STORE HOME POSN 
JF GOODRET 
LD C, 2 
JP ERRRET 
LD А, (VIDMOD): ONLY VALID IF 80,81,84 
LD С, А: SAVE IN C 
BIT 7, а 
JF Z, INVFAR 
LD А, В: MODE 4 OR 5 ТО ñ 
CF' 4 
JR NZ, DTADF2; DATA ТО ОР? 
BIT O, C: ALREADY DESTINATION? 
JP Z, GOODRET: NO ACTION NECESSARY 
XOR С: SET VIDMODE TO 80 OR 84 


AND 254: BIT 0=0 

JR SETMDZ1: UPDATE VARIABLES 
BIT O, C: DF2 OPEN? 

JF NZ, GOODRET 

ХОК C: VIDMODE TO 81 OR 85 
JR SETMD3:1 UPDATE VARIABLES 


LINES WITHIN OR BETWEEN DFILES 


FORM BASIC ENTRY 


2ASDSC COFYSO 


00000000 СОРУШЕ 
22505С COFYO1 
CD18E4 

52Е9ЕЗ 

CD18EA4 

S2EBES 

CD18E4 

52ЕВЕЗ 

CD18E4 

S2EAES 

CD18E4 

E1 

22505С 
EDABEBE-Z 
EDSBEAE3 

1825 


2ASDSC GETNO 


LD HL, (CHRADD): SAVE CURRENT FOSN 
PUSH HL 

CALL GETSTRG: GET STRING OF FARAMS 
JR NZ, COFYO1: FOUND 

РОР HL: RETURN AS NOT FOUND 

LD (CHRADD), HL 

RET 

DEFS 4: WORK AREA FOR BASIC PARAMS 
LD (CHRADD), HL: STR ADDR TO CH-ADD 
CALL GETNO 

LD (COPYWK+1), A: SOURCE LINE Ж 
CALL GETNO 

LD (СОРУЫК), A: DEST LINE # 

CALL GETNO 

LD (COPYWK+2), A: SOURCE DF 

CALL GETNO 

LD (COFPYWE+2), A: DEST DF 

CALL GETNO 

POF HL 

LD (CH_ADD), HL: RESTORE CH_ADD 

LD ВС. (СОРУЫК) 

LD DE, (COFYWE*2) 

JR COFYSC 

LD HL, (CHRADD): LOAD ADDR 

LD А. (HL): GET CHAR FROM STR 


CF 44: COMMA? 
JR 2, GETN2 
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58400 ҒЕЗО CF 48: DIGIT? 

58402 3811 JR С, COFERR: INVALID 

98404 ҒЕЗА CF 58 

58406 300D JR NC, COFERR: END OF STR 

58408 CDF?3O GETN1 CALL .ININT 

58411 Ср933 CALL FF2A 

58414 DO RET NC 

28415 23 GETN2 INC HL 

58416 22505С LD (CH_ADD), HL 

58419 18ЕЗ JR GETNO 

98421 E1 COFERR FOF HL: DISCARD RET 

38422 E1 COFER1 РОР HL: RESTORE CH ADD 

58425 22505С LD (CH, ADD), HL 

58426 C3C4EO ЈР INVPAR 

: ENTRY WITH РАКАМ IN REGISTERS 

58429 07 COFYSC AND A 

58450 CAC4EO JF 72, INVFAR: TEST РАКАМ 

58455 FE19 CP 25: ERR OF LINE CT=0 

58455 D2C4EO JF МС, INVPAR 

58458 FS PUSH АЕ 

58439 CDABES CALL GTADRS: GET DF ADDR FOR SOURCE 
58442 DACA4EO JP C, INVPAR 

58445 ES PUSH HL: SAVE SOURCE ADDR 

38446 41 LD B, C: DEST LINE 

58447 53 LD D, E: DEST DF 

58448 CDASES CALL GTADRS: GET DF ADDR FOR DEST 
58451 DAC4EO JF C, INVFAR 

58454 D1 РОР DE: SOURCE ADDR 

58455 EB EX DE, HL: DE-DEST, HL=SOURCE 
98456 F1 POP AF: GET COUNT 

58457 47 LD B, А 

58458 ES PUSH HL: SAVE STARTING ADDR 
58459 DS FUSH DE 

58460 CS PUSH BC:AND ORIG LINE CT 

28461 7D COFYS1 LD A, L: CALC # OF LINES SOURCE BLOCK 
58462 07 RLCA 

98463 07 RLCA 

58454 07 RLCA 

584655 AF LD C. А 

584665 ЗЕОВ LD А, 8 

58468 91 SUB C 

58469 4Е LD C, А: # LINES THIS BLOCK 
28470 CS FUSH BC: SAVE & LINES, # LINES SOURCE В 
28471 B8 CP B: COMPARE TO TOTAL 

58472 2871 JR С, COFYSS: TOTAL >ТНІ5 BLOCK 
28474 7B LD А, E: CALC # LINES DEST BLOCK 
58475 07 RLCA 

28476 07 RLCA 

28477 07 RLCA 

58478 4Е LD C, A 

58479 ЗЕОВ LD ñ. В 

58481 91 SUB C: А=# LINES DEST BLOCK 
58482 С! FOF ЕС: B=TOTAL LINES, С=# LINES DEST 


28482 4F LD C, à 
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58485 
58484 
58487 
58488 
58490 
58491 
58492 
58494 
58495 
58496 
58498 
$8499 
98500 
58501 
58502 
58504 
58505 
58507 
58509 
58510 
58511 
58515 
58514 
58515 
58516 
58517 
58518 
58519 
58521 
58522 
58525 
58524 
58525 
58526 
58528 
58529 
58550 
58552 
58555 
58554 
58555 
58556 
58558 
58559 
58541 
98543 
28544 
58545 
58547 
58548 
58549 
58550 
58551 


58552 


B8 
3879 
78 
0600 
cs 
47 
ОЕОВ 
78 
cs 
E607 
ОЕ 
ОЕ 
ОЕ 
4F 
0600 
A7 
2002 
0601 


Advanced 


COPYS2 


COPYS3 


COFYS4 


СОРҮ41 


COFY42 


CP B 


JR C, COFYS7: USE DEST LINE CT 
COFY WITHIN BOTH S & D BLOCKS 


LD А, B: 
LD B, 0: 
PUSH BC: 
LD B, A: 
LD C, 8: 
LD A. В: 
PUSH BC: 
AND 7 
RRCA 
RRCA 
RRCA 

LD C, A: 
LD B, O 


2068 Machine Code 


REMAINING LINES 
SAVE 

# OF LINES 

SCAN COUNT 

# OF LINES 

SAVE 


BC=32% (# LINES) 


AND A: ZERO? 
JR NZ,COPY41 


LD В, 1 
PUSH HL: 
FUSH DE 


SAVE ADDR 


LDIR: COPY BC BYTES 
РОР DE: RESTORE ADDRS 


POP HL 


INC D: NEXT SCAN LINE 


INC H 


FOP BC: LINE CT 
C 


DEC 


JR NZ,COFYS4: NEXT SCAN ROW 
LD А,В: SAVE # JUST MOVED 
FOF BC: LINE CT LEFT 


LD с, А 
LD A,B 


AND А: ZERO? 
JR Z,COPYXT: DONE 


PUSH ВС: 
LD A,C 
AND 7 
RRCA 
RRCA 
RRCA 

LD с, А 
LD в, о 
AND А 


LINE CT LEFT 


JR NZ, COFY42 


LD B, 1 


DEC H: ñDJ ñDDRS TO START 


ADD HL, вс 


LD А, 120 
AND Н 
LD Н.А 


PUSH HL: SAVE ADJ SOURCE ADDR 


DEC D 
EX DE,HL: 


ADD HL,BC 


DEST ADDR TO HL 
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58555 ЗЕ7В LD А, 120 

58555 a4 AND H 

58=56 67 LD H,A 

58557 D1 POP DE: SCORCE ADDR TO DE 

58558 EB EX DE,HL: HL=SORCE, DE= DEST 
58559 C1 POP BC 

59560 1898 JR COPYSi: B= LINE CT LEFT 
58562 С! СОРУХТ POP BC: ORIG LINE CT 

58563 68 LD L,B: CALC # OF BYTES 

58564 2600 LD H,O 

58556 29 ADD HL.HL: жх2 

58567 29 ADD HL, HL 

58568 29 ADD HL, HL 

58559 2 ADD HL,HL 

58570 29 ADD HL,HL 

58571 44 LD B,H 

58572 4D LD C,L 

58573 E1 POP HL: DEST ADDR TO HL 

58574 CD92E6 CALL CALCATT: ADDR OF ATTR FILE 
58577 EB EX РЕ, НЫ: DE = DEST ADDR 

58578 Е! РОР HL: SOURCE ADDR 

58579 CD92bE6 CALL CALCATT: S ADDR OF ATTR FILE 
58582 EDBO LDIR 

58584 C3BFEO JP GOODRET 

58587 41i COPYSS LD B,C: # LINES SOURCE BLOCK TO B 
58588 7B LD А,Е: CALC # LINES DEST BLOCK 
58589 07 RLCA 

58590 07 RLCA 

58591 07 RLCA 

58592 АҒ LD С, А 

58593 ЗЕОВ LD а,в 

58595 91 SUB С: A= # LINES DEST BLOCK 
58596 4F LD С, а: TOC 

58597 B8 CP B: COMPARE TO SOURCE BLOCK 
58598 5808 JR C,COPYS7: USE DEST LINE CT 
58600 C1 POP BC: В= TOTAL , С= DEST LINE CT 
58501 78 COFYS& LD A,B 

58602 91 SUB C 

58603 47 LD В,А: LINE CT LEFT 

58504 CS PUSH BC 

58605 79 LD A,C: # ОЕ LINES 

58606 188B JR COPYSZ: COPY А LINES 

58608 79 COFYS7 LD A,C: # LINES DEST BLOCK 
58609 Ct POP BC: B= TOTAL, C= DEST LINE CT 
58610 4F LD С, А 

58611 18F4 JR COPYS6 


EXCHANGE SCREENS 


s EXCHANGE LINES WITHIN OR BETWEEN SCREENS 

:HERE FROM BASIC ТО GET FARAMS FROM STR INTO REGISTERS 

58613 2ASD5C ЕХСНЕО LD HL. (СН ADD): SAVE CURRENT FOSN 
98616 ES PUSH HL 

38617 CDESE4 CALL GETSTRG: GET STR OF FARAMETERS 
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28620 2005 JR NZ,EXCHO1: FOUND 

58522 E1 POP HL: EXIT 

58625 22505С LD (CHRADD),HL: RESTORE POSN 
58626 С9 RET 

58627 225р5С EXCHO1 LD (CHRADD),HL: ADDR OF STRING 
58650 CD18bE4 CALL GETNO: GET PARAMETERS 
58655 52ЕВЕЗ LD (COPYWK),A: SOURCE LINE Ж 
58656 С018Е4 CALL GETNO 

58659 S2EAES LD (COPYWK+2),A: DEST LINE Ж 
58642 CD18bE4 CALL GETNO 

58645 52Е9ЕЗ5 LD (COFYWK+1),A: SOURCE DF 
98648 CD18E4 CALL GETNO 

58651 52ЕВЕЗ LD (СОРУШК+$),А: DEST DF 

58654 CD18E4 CALL GETNO: # OF LINES 

58657 Е! РОР HL: RESTORE CH, ADD 

58658 22505С LD (CHRADD),HL 

58661 EDA4BEBES LD BC, (COPYWK): LOAD REGISTERS 
58665 EDSBEAES LD DE, (COPYWK +2) 


:В= DF OF SOURCE C= LINE # FOR SOURCE A= # OF LINES TO XFER 
:D= DF OF DEST D= LINE # FOR DEST 


28669 А7 EXCHSC AND А: ZERO? 

58670 САСАЕО JP Z, INVPAR 

58675 ҒЕ19 CP 25: TOO MANY? 

58675 D2C4EO JP NC, INVPAR 

58678 FS PUSH AF: SAVE LINE CT 

58679 DS PUSH DE: SAVE SOURCE 2 INFO 

58680 50 LD D, B: DF р 

58681 41 LD B, C: LINE & 

58682 CDA8ES CALL GTADRS: GET DF ADDR OF БОКСЕ 1 
58685 DAC4EO JP С, INVPAR 

58688 D1 РОР DE: SORCE 2 INFF 

38689 ES PUSH HL: SAVE SQURCE 1 ADRS 

58690 43 LD В,Е 

58691 CDA8E5 CALL GTADRS: GET DF ADDR OF БОКСЕ 2 
58694 DAC4EO JP C, INVFAR 

58697 D1 POP DE: ADDRS IN DE AND HL 

58698 Fi POP AF: A= LINE CT 

58699 ES PUSH HL: SOURCE 2 START ADDR FOR EXIT 
58700 DS PUSH DE: SOURCE 1 START ADDR FOR EXIT 
58701 Ғ5 PUSH AF: ORIG LINE СТ 

28702 Ғ5 FUSH АР: WORKING LINE CT 

58705 0608 ЕХСНО LD B,8: SCAN CT 

28705 ES 'ЕХСН1 FUSH HL: SAVE ADDR & LINE CT 

58706 DS PUSH DE 

58707 CS PUSH BC 

58708 012000 LD BC, 52: BYTES/LINE 

98711 CD9SE5 CALL ЕХСНЕР: EXCHANGE BYTES 

58714 C1 POP BC: SCAN CT IN B 

58715 Di FOP DE: ADDRESSES 

58716 E1 РОР HL 

58717 14 INC D: ADJUST TO NEXT SCAN LINE 
58718 24 INC H 

$8719 1ОРО DJNZ ЕХСНі: DO NEXT ROW 


38721 F1 POP АҒ: LINE CT 
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58722 15 DEC D: ADJUST BACK 1 LINE 
28723 25 DEC H 

58724 3D DEC А 

28725 2812 JR 2, EXCHXT: DONE 

58727 FS PUSH АЕ: REMAINING LINE CT 
58728 012000 LD ВС, 22 

58751 09 ADD HL, BC 

58752 3E78 LD А, 120 

58754 А4 AND H 

58755 67 LD H, ñ 

28756 EB EX DE, HL 

58737 09 ADD HL, BC 

58758 5Е78 LD А, 120 

58740 А4 AND H 

58741 67 LD H, A 

58742 EB EX DE, HL 

58745 1806 JR EXCHO: DO NEXT LINE 
58745 F1 EXCHXT POP AF: ORIG LINE CT 
98746 6F LD L, A 

58747 2600 LD H, O 

58749 29 ADD HL, HL: X32 

58750 29 ADD HL, HL 

58751 29 ADD HL, HL 

58752 29 ADD HL, HL 

58755 29 ADD HL, HL 

$8754 44 LD B, H 

58755 4D LD C, L 

58756 E1 РОР HL: SOURCE 1 ADDR 
58757 CD92E6 CALL CALCATT: GET ADDR OF ATTR FILE 
58760 ЕВ EX DE, HL: TO DE 

58761 E1 POP HL: SOURCE 2 ADDR 
28762 Ср92Е6 CALL CALCATT: HL= ATT ADDR SOURCE 2 
58755 CD93E5 CALL EXCHLP: EXCHANGE ATTR 
58768 CSBFEO JP GOODRET 

38771 CS EXCHLP PUSH ВС: SAVE CT 

58772 7E LD А, (HL): FROM SOURCE 2 
58773 4F LD С, А: TO WORKING REG 
58774 1А LD А, (DE): FROM SOURCE 1 
58775 a9 XOR C: XCHANGE VIA XOR 
28776 FS PUSH АҒ 

58777 a9 ХОК C: A= DATA DOR SOURCE 2 
$8778 4F LD С, А: С= DATA FOR SOURCE 2 
58779 F1 POP АЕ 

58780 A? ХОК C: INTERMEDIATE RESULT 
58781 12 LD (DE), А 

58782 71 LD (HL), C 

58785 15 INC DE: ADJUST NEXT BYTE 
58784 23 INC HL 

58785 C1 РОР ВС 

58786 ОВ ВЕС ВС 

28787 78 LD A, B 

58788 в! OR C 

58789 20EC JR NZ, EXCHLP 


$8791 C9 RET 
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: SUBROUTINE TO GET DF ADRS OF LINE IN B FOR DF ІМ D CARRY= ERR 


58792 78 GTADRS LD A, B 

58793 FE18 СР 24: VALID? 

58795 301E JR NC, GTERR 

58797 OF RRCA 

58798 OF RRCA 

58799 OF ЕКСА 

58800 E6EO Амр 224 

58802 оғ LDL, A 

58803 78 LD A, B 

58804 E618 AND 24 

58806 F640 OR 64 

58808 67 LD H, A 

58809 7А LD A, D 

58810 47 AND А 

58811 280E JR Z, GTERR: ERR IF NOT 1 OR 2 
58815 ҒЕОЗ СР 5 

58815 300A JR NC, GTERR 

58817 CB47 BIT О, А: WHICH DF? 
58819 2004 JR NZ, GTADi: DFi 
58821 7C LD A, H 

28822 F620 OR 52: DF2 

s8824 ¿7 LD H, А 

58825 А7 GTADi1 AND à: RET NO CORRY 
58826 C9 RET 

58827 57 GTERR SCF: SET CARRY FOR ERROR 
58828 C9 RET 


INTERNAL SUBROUTINES 


58829 4F GETVAL LDC, A 
58850 CB47 BIT О, A 
58852 2016 JR NZ, TSTOI1 
58854 FEBO CP 128 
58856 281A JR Z, SETO 
58838 CB7F BIT7, А 
58840 CO RET NZ 
$8841 47 LDB, A 
58842 FEO2 cP 2 
28844 СВ RET Z 
58845 ЕФСФ AND 198 
58847 EEO6 XOR 6 
58849 CO RET NZ 
58850 5Е40 LD А, 64 
$8852 B1 OR C 
58855 4F LD C, А 
58854 АЕ хок а 
58855 С9 RET 

38856 FEO1 TSTO1 CP 1 
58858 CO RET NZ 
58859 0601 LD B, 1 
58861 ОЕВ! LD C, 129 
$8863 C9 RET 


58864 АР SETO XOR А 
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58865 47 
$8866 C9 


: ROUTINE TO ENABLE CHUNK 


58867 
28868 
58870 
58872 
58874 
58876 
28878 
28879 


FS 
DBFF 
F680 
ОЗЕР 
ЗЕОЗ 
05-4 
F1 
c? 


58880 
58881 
58882 
58884 
38886 
38888 
58890 
58891 


FS 
АҒ 
05-54 
DBFF 
E63F 
D3SFF 
F1 
C9 


TEST PARAMETER 


58892 
38894 
$8895 
58897 
58898 
58901 
58904 
58905 
58906 
28908 


5Е17 
B8 
5004 
Ғі 
С$С4ЕО 
5а55ЕО 
SD 

B9 
SB8FS 
c9 


CONVERT FORMAT 


1CONVERT LINE/COL FROM USER TO INTERNAL FORMAT AND BACK 
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ENBLEXT 


ENBLHOME 


VALIDITY 


TSTFAR 


PARERR 


TSTPR1 


О IN EXROM TO ACCESS CHNGVID ROUTINE 


PUSH AF 

ІМ А, (HREXPT) 
OR 128 

OUT (HREXPT), А 
LD а, 3 

OUT (DKHSFT), A 
POP AF 

RET 


PUSH AF 

XOR As SET Azo 

QUT (DKHSPT), A 
IN A, (HREXPT) 

AND 63 

OUT (HREXPT), A 
POP AF 


RET 

LD A, 23 

CP B 

JR NC, TSTFR1 

POP AF 

JP INVFAR 

LD А, (LINLEN) 

DEC A 

СР С: TEST COL >63 


JR C, PARERR 
RET 


: USER FORMAT LINES 0-25; COL 0-63 
t INTERNAL FORMAT LINES 24-1 COL 65-2 (COL 1 


58909 
58912 
58915 
58914 
58915 
58917 
58918 
58919 


SASSEO 
3c 


УРРАТЕ POSITION 


z ENTER HERE WITH BC=LINE/COL IN INTERNAL FORMAT 
CALCULATE POSITION 
STORE UFDATE AND RET 


58920 CD2DE6 
58925 1828 


CONVFM 


UPDPOSN 


LD A, (LINLEN) 
INC A 

SUB C 

LD C,A 

LD А, 24 

SUB B 

LD в,а 

RET 


CALL CALCPOS: 
JR STFOSN: 


END OF LINE) 


Раде 110 Advanced 2068 Machine Code 


CALCULATE POSITON 


s CALCULATE POSITION IN DFILE 
: RETURNS ADDR IN HL: PRESERVES LINE/COL IN BC 


58925 CD3AE6 CALCPOS 
58928 SASSEO 


CALL LNBO: GET DFILE ADDR 
LD ñ, (LINLEN): WHICH DFILE 


58951 3C INC А 

58932 91 SUB C 

58933 SF LD Е, А 

58954 1600 LD р, о 

58936 19 ADD HL,DE 
589237 C9 RET 

БЕТ DFILE ADDR FOR START OF LINE IN B 
58938 5Е18 LNBO LD A,SCRSZ 
58940 90 SUB B 

58941 57 LD р, А 

58942 ОЕ RRCA 

58943 OF RRCA 

58944 ОҒ RRCA 

58945 E&EO AND 224 
58947 6F LD L,A 

58948 7А LD А, О 

58949 E618 AND 24 

58951 F640 OR 64 

58955 67 LD H,A 

58954 ЗАС25С LD А, (VIDMOD) 
58957 СВ47 BIT О,А: WHICH DF? 
58959 C8 RET Z 

58960 3E20 LD A,32: SET TO DF2 
58962 B4 OR H 

58963 67 LD H,A 

58964 C9 RET 


STORE CURSOR POSITION 
58965 Ер4554Е0 STPOSN 
58969 2236E0 

58972 C9 

LOAD COURSOR POSITION 
58975 ED4B34E0 LDFOSN 
58977 2A36E0 

28980 C9 


UFDATT 


LD (CURFOS), BC 
LD (DFADRS),HL 
RET 


LD BC, (CURFOS) 
LD HL, (DFADRS) 
RET 


:UFDATE ATTR BYTE FOR CHAR JUST FRINTED 
ІНІ = ANY SCAN OF CHAR ІМ DF 


58981 CD92E6 UFDATT 
58984 5859ЕО 

58987 SF 

58988 ЗАЗҒЕО 

58991 57 


CALL CALCATT: ADDR OF ATTR TO HL 
LD A, (ATTBYT) ` 

LD E,ñ: CURRENT ATTR VALUE TO E 
LD A, (АТТМ$К): MASK TO D 

LD D,A 


Chapter 
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58992 ЗАЗВЕО LD A, (MASKB):FLAGS TO B 
58995 47 LD В, А 

58996 7E LD А, (HL): BYTE FROM ATTR FILE 
58997 АВ ХОК Е 

58998 А2 AND D 

58999 АВ ХОК Е; МЕМ АТТА ВУТЕ 

59000 CB6O BIT 4,В: INK COMP. OF PAPER? 
39002 2808 JR Z,UPDAT1 

59004 E6F8 AND 248: INK BLACK 

59006 CB6F ВІТ 5,0: PAPER 4-7? 

$9008 2002 JR NZ,UPDAT1: USE BLACK INK 
39010 F607 OR 7: USE WHITE INK 

59012 CB70 UFDAT1 BIT 6,B: SET PAPER COMF. INK? 
59014 2808 JR Z,UPDAT2 

59016 E6C7 AND 199: SET PAPER TO BLACK 
39018 СВ57 BIT 2,01 INK 4-7? 

$9020 2002 JR NZ,UFDAT21 USE BLACK РАРЕК 
59022 F638 QR $6: USE WHITE PAPER 
59024 77 UFDAT2 LD (HL), ñ 

59025 C9 RET 

$9026 7C CALCATT LD A,H 

39027 OF RRCA 

59028 OF RRCA 

59029 ОҒ RRCA 

$9030 E603 AND 3 

29032 F658 OR 88 

59054 CBAC БІТ 5,Н: WHICH DF? 

399036 2802 JR Z,CALCA1 

59058 F620 OR 52: ОРЗ 

99040 67 CALCA1 LD H,A 

59041 C9 RET 

59042 FS LDATTR PUSH AF 

59045 ZASBDSC LD A, (ATTRF) 

39046 $259ЕО LD (ATTBYT),A 

59049 ЗАВЕЗС LD A, (MASKP) 

59052 323FEO LD (ATTMSK),A 

59055 54915С LD А, (PFLAG) 

59058 OF RRCA 

59059 S23AEO LD (MASKB),A 

59062 F1 POF AF 

59065 C9 RET 

59064 ЗАС35С GETSTRG LD A, (PARAMS) 

59007 ЕСІР | AND 51: ТОР 3 BITS 

39069 F640 OR 64 

$9071 $7 LD р, А 

59072 2А4В5С LD HL, (VARS) 

59073 7E GTSTRi LD A, (HL) 

39076 Е67Ғ AND 127 

59078 281% JR Z,NOSTRG 

59080 BA CP D 

59081 2808 JR 2,6Т5ТЕ2 

99083 DS PUSH DE 

59084 CD2017 CALL RECLEN 


39087 EB EX DE, HL 
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59088 D1 РОР ПЕ 
59089 1BFO JR GTSTR1 
59091 23 GTSTR2 INC HL 
59092 4E LD C, (HL) 
59095 23 INC HL 
59094 46 LD B, (HL) 
59095 25 INC HL 
29096 78 LD А, B 
59097 B1 OR C 
29098 C9 RET 

59099 OEO2 NOSTRG LD C, 2 
59101 0600 LD B, © 
59105 C9 RET 

59104 00000000 GRFST DEF B 0,0,0,0,0,0,0,0: GRAPH PIX TABLE 


59108 00000000 

59112 OFOFOFOFOO000000 DEF 
59120 FOFOFOFOOO000000 DEF 
39128 ҒҒҒҒҒҒҒҒОООООООО DEF 
59156 OO00000000FOFOFOF DEF 
59144 OFOFOFOFOFOFOFOF DEF 
59152 FOFOFOFOOFOFOFOF DEF 
$9160 FFFFFFFFOFOFOFOF DEF 
59108 OO0000000FOFOFOFO DEF 
59176 OFOFOFOFFOFOFOFO DEF 
39184 FOFOFOFOFOFOFOFO DEF 
59192 FFFFFFFFFOFOFOFO DEF 
39200 OO0000000FFFFFFFF DEF 
59208 OFOFOFOFFFFFFFFF DEF 
59216 FOFOFOFOFFFFFFFF DEF 
59224 FFFFFFFFFFFFFFFF DEF 
LAST BYTE USED 59251 


15,15,15,15,0,0,0,0 
240,240,240,240,0,0,0,0 
255,255,255,255,0,0,0,0 
0,0,0,0,15,15,15,15 
15,15,15,15,15,15,15,15 
240,240,240,240,15,15,15,15 
255,255,255,255,15.15,15,15 
0,0,0,0,240,240,240,240 
15,15,15,15,240,240,240,240 
240.240,240,240,240,240,240,240 
255,255,255.255,240,240,240,240 
0,0,0,0,255,255,255,255 
15,15,15, 15,255, 255, 255, 255 
240, 240, 240, 240, 255, 555, 255, 255 


255, 255, 255, 255, 255, 255, 255, 255 


tD O DU tD tU O UU O O O tU UO O tU tU 


This code is saved on disk as “2scr.bin",57344, 1889. 


Basic for Using Dual Screen Mode: 


The astute student will immediately recognize that the Basic 
interface routine at the beginning of the Program uses exactly 
the same addresses and techniques we had for the 64 column and 
80 column modes. Therefore, our Basic program is going to look 
quite similar except this time around we have to provide for 
writing to 2 different screens. However, an amazing thing does 
take place. All the Basic commands you are used to using still 
work with DF1 no matter what screen is showing on your ТУ or 
monitor. In addition, the Basic commands of INK, PAFER, BORDER, 
BRIGHT, FLASH, OVER, and INVERSE work from the Basic System 
Variable storage of these flags so will work on either screen. 
Thus only PRINT, AT, TAB, ATTR, CLS, LIST, DRAW, POINT, PLOT, 
SCREENS, CIRCLE, SCROOL and EDIT won't work on DF2. This last is 
highly important as INPUTS and ERROR MESSAGES won’t print on the 
bottom 2 lines of DF2. Should you get stuck with DF2 active on 
the monitor and for some reason your basic program stops, there 
will be no message printed to tell you what is wrong and in 


ee 5 
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addition you have to type in commands blind to get back to DFi 
active or restart your program. Don't just hit keys randomly 
should this happen to you or you fill up the edit space with 
garbage which will result in your having to pull the plug to get 
control back. 


Let's present the program and then discuss it. It's on the disk 
as 2SCR.BAS for those of you who have the disk. 


5 CLEAR 57343: CAT "2scr.bin",.57344,1889 

10 INVERSE 11 PAPER 6: POKE 57580, 128: RANDOMIZE USR 57281: REM 
GOTO 2 SCREEN MODE WITH ОЕ! ACTIVE 

15 PRINT "Screen 1 works from Basic" 

19 REM ñs а word entry processor (по tokens please) 

20 FOR k=1 to 600: IF PEEK 235505143 THEN STOP 

25 POKE 57544,РЕЕК 23560: RANDOMIZE USR 57245: PAUSE O: NEXT k 

$0 REM CLS demo wil clear only a portion of the screen if you 
like. Make sure you have something on the screen to clear. 

51 POKE 57356,0: POKE 57557,2: REM 2 lines starting with line 
О. Reset to О and 23 to clear whole screen. 

32 RANDOMIZE USR 57358: POKE 57357,24: REM reset to full 
screen 

35 STOP 

37 REM SCROOL Demo 57384 with # of lines to scroll, 57585 with 
starting line # (default is 1 and 23 for whole screen) 

40 RANDOMIZE USR 57386 

45 STOP 

SO LET A$-"PRINTING TO SCREEN 2 while showing SCREEN 1" 

SS POKE 57380, 128: RANDOMIZE USR 572811 РОКЕ 57580,5: RANDOMIZE 
USR 57581: РОКЕ 57556,0: РОКЕ 57557,24: RANDOMIZE USR 57258: 
РОКЕ 23747, CODE "A": RANDOMIZE USR 57348: PRINT АТ 10,0;А$’ 
"Fress any key to show screen 2": PAUSE О: POKE 57380, 1: 
RANDOMIZE USR 57581: PAUSE О: GOTO 890 

70 РОКЕ 57580,128: RANDOMIZE USR 97581: PRINT АТ 5,0: 
"Transfering something to Screen 2 from Screen 1 but only these 
2 lines"jAT 9,0; "Press any key to show screen 2": PAUSE О 

75 LET 4$2z"5,2,1,2,2": POKE 25747, CODE "A": RANDOMIZE USR 
57408: POKE 57580,1: RANDOMIZE USK 57281: PAUSE О: GOTO 890 

80 PRINT AT 8,0; "Exchange Screen 1 with Screen 2 Press any key 
to continue": LET A$="0,0,1,2,22": POKE 23474, CODE "A": PAUSE 
Or 

85 RANDOMIZE USR 574111 PAUSE О: РОКЕ 57380,1: RANDOMIZE USR 
57381: PAUSE O: GOTO 890 
150 POKE 57380,1: RANDOMIZE USR 57281: REM Goto 2 screen mode 
with DF2 active 
155 PRINT "SCREEN 2 doesn't work from Basic as this prints to 
DF1" 

160 LET A$=" SCREEN 2 Open for your input. Type a message. Quit 
with STOP." 

165 POKE 23747, CODE "A": RANDOMIZE USR 57348 

167 POKE 57351,0: POKE 57552,5: RANDOMIZE USR 57353: REM AT 3,0 
Set cursor to 3,0 

170 FOR к-1 TO 600: IF PEEK 235607142 THEN GOTO 890 

175 РОКЕ 57544, PEEK 23560: RANDOMIZE USR 57545: PAUSE 0: NEXT 
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k 

499 STOF 

505 POKE 57580,0: RANDOMIZE USR 57381: REM go back to 1 screen 
mode 

889 STOF 

890 FOKE 57580, 128: RANDOMIZE USR 57281; REM DFi active to show 
EDIT lines 

899 STOP 

900 OUT 244,1: MOVE "25сг. Бањ", 5 


АЕ first glance this looks like a lot of рокев and randomize usr 
calls which can be quite confusing but it really is quite 
simple. 


Line 5 lowers RAMTOP and loads the code which shouldn't give any 
one a headache. Line 9OO resaves the basic in case you make 
changes to this program. Line 500 merely takes us back to the 
single screen normal mode. 


Every time we exit a program that ends with DF2 being displayed 
and we want to exit with an edit line we go to line 890 to get 
us back into DF1 active on the TV or monitor so we can read what 
we type in. 


Line 10 demonstrates the use of INVERSE and РАРЕК so we have 
some color and then opens both files and displays DF1 on the TV 
or monitor. 


In code we would put the mode in register А and call SETMODE. 


Line 15 prints а message to the screen to demonstrate that Basic 
commands do work. 


Lines 20 and 25 converts our computer to a word input processor 
using a routine called WRCHR recycling every time a key is 
pressed until you enter а token. The pause is just to wait for 
the next input. Note where the input typing goes to the 
screen--at the very top overwriting the first message. The 
reason for this is that we haven't set the cursor as we do in 
line 167 when on screen 2. You may wish to add this line. I left 
it this way to show that Basic uses a different variable to keep 
track of the screen position than the machine code routine. 


In code we would use the А register to hold the character codes. 
Note that we use a different entry point for all calls from 
machine code than we do from Basic. Ме can use any codes up to 
and including the user defined graphics but no tokens. 


Lines 51 and 52 demo the CLS function clearing only the top two 
lines of the screen. By the way. the CLS of the 64 and BO column 
modes can be used in exactly the same way. We end CLS with 
resetting to a full screen mode. 
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In code we would put the line count in B and the starting line 
in C. 


Line 57 апа 40 do a full screen scroll of 1 line. In code the 
line count would be put in B and the starting line in C. 


NOTE that the same thing would happen to DF2 if we merely did a 
POKE of 57380 with 1 and a RANDOMIZE USER 57281. We should also 
do a GOTO 890 so we don't hang up in screen 2. 


There are also functions to find out what character is printed 
at what space and what the attribute for a space is but we leave 
these exotica to the student to explore on his/her own. 


However, we can get a bit fancy. To demonstrate the real power, 
let's print to screen 2 while displaying screen 1. 


Line 50 sets up a string which we will print to both screens 
only in different locations. 


Line 50 starts by making sure we are displaying DFi. Then we до 
to MODE S telling the computer to do print operations to DF2. 
Next we CLS screen 2. Finally we tell it to print АЖ to DF2. 
Then in Basic and without changing modes, we tell it to print ñ$ 
to DF1 with the addition of a direct string. We stop with а 
PAUSE to view it. Next we go to MODE 1 to display DF2 with a 
PAUSE for us to view it. Finally we end with a GOTO 890 to get 
back DF1 and our edit line. 


There is also MODE 4 to use in code. It is not much value in 
Basic since any simple PRINT command will go to DFi no matter 
what file is being displayed. MODE 4 tells the computer to use 
DF1 for the following print Operations. 


Line 70 and 75 show how to transfer something written to screen 
1 to screen 2. Line 70 merely goes to screen 1 and writes 2 
messages and waits for us to press a key. In line 75 we set up 
A$ with the following sequence of parameters: (the letters іп 
back of each statement are the register we would use if we were 
writing a program to do the transfer in code.) 


1. Source starting line. B 
2. Destination starting line. С 
5. Source file. ° D 
4. Destination file. E 
S. # of lines to transfer. А 


We tell the computer about A$ by poking the code to PARAMETERS 
at 25474 and calling COFY. We then change modes to show DF2 and 
that the lines were transferred. PAUSE is used to hold this 
screen until another key hit turns us back to DFi Бу going to 
line 890 and an edit line. 


Note that only full lines can be transferred, not just a part of 
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à line. Also note that we can transfer lines from one part of a 
screen to another part of the same screen if we wish. There is 
nothing that says source and destination must be different 
display files. 


Lines BO and 85 demo the Exchange of material between the 2 
display files. Again AS is set up with the parameters and/or 
registers: 


1. Source 1 DF B 
2. Source 1 starting line C 
$. Source 2 DF D 
4. Source 2 starting line E 
$. Line count 


D 


The difference is that what is at one position in one file gets 
exchanged with the other position in the other (or the same) 
file. Again only full lines can be exchanged. 


Line 150 displays DF2. If we haven't used DF2 as yet it will be 
a black screen as all the attributes are still O until we start 
writing. АТТК P will be used in the usual definition of bytes in 
that attribute. 


Line 155 merely demonstrates that Basic will not work to write 
to DF2. This also limits us to named strings rather than 
undefined strings in РКІМТ statements. 


Lines 160 and 165 use WRSTR to write A$ to ПЕ? and display it. 
In code we wouldn't use a variable but only а series of 
addresses containing the message. HL would be pointed to the 
first address of the message with ВС containing the length. 


Line 167 resets the cursor to 3,0 with SETCUR. In code, register 
B would be the line # and C the column &. 


Lines 170 and 175 uses WRCHR to turn the screen into a word 
processor. Entering the STOF token quits the program as we did 
for DF1. 


Other things could be added to the demonstration to show more of 
the routines written into the code. There are routines to query 
the 2 screens for what character is in a certain space оғ what 
the attribute of a certain space is which may have applications 
in some games. However, I think that what I have demonstrated is 
enough to whet your appetite. 


The student will have observed through all of this that if опе 
makes DF2 the file displayed, one can write to DF1 using Basic 
to prepare it for display. Then at the proper time use COPY to 
transfer the whole file or just the part that a rewritten to DF? 
for display. 


What you want to use the Dual screen mode for is up to you. 1+ 
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Basic is too slow for your screen writing routines, you сап 
always switch your sluggish routines to code. 


kdvgznced 2065 ігсііпе Code 


Charter 5 


CHAPTER 6 HI RES GRAPHICS MODE 


The Hi Rez Graphics Mode has been thought of by some people to 
be the mode to paint your masterpiece, your Mona Lisa. You are 
going to be disappointed. DF1 is used to display the pixels in 
à normal 24 line 22 column screen. DF2 holds one attribute per 
line of В screen pixels, in other words 8 attributes per 
character space. Nothing is held in the attribute portion of 
either file. This is neither high resolution pixel counts or 
high resolution color. Each attribute is still limited to only 
two of the eight Basic colors of paper and ink and though you 
may use inverse to invert them you can’t have 2 colors іп a 
horizontal line shorter then 9 pixels across. Vertically they 
can change every pixel. This sometimes leads to the necessity of 
mildly distorting a picture at least in the horizontal 
direction. Yet some quite fantastic screens have been produced. 
HI RES GRAPHICS is not for running sprites. 


There are quite a few paint programs already on the market which 
will have some quite interesting features to help you draw and 
design your screen. Some of the better ones even give you a 
blown up view of the portion of the screen you are working on. 
Let's admit that the Basic way оғ designing UDG graphic 
Characters is too slow and cumbersome and too memory hungry for 
most applications. Faster and shorter methods аге necessary. 
Running these programs is learning all the commands involved 
with these programs. Generally one does not want to change a 
screen Once it is completely designed so most programs merely 
open DF2, load the 2 files and display them while loading the 
rest of the program and then drop back to normal screen mode. 
This wastes all the space of DF2. But a word of caution, some 
beautiful title screens are NOT HiRes mode but just ingenious 
and imagnative designs іп normal screen mode. Also another 
caution, an unused DF2 is not a good place to run machine code 
routines from as it is in the lower half of RAM and can cause 
interferences with the data and address buses upon screen 
refresh. We will talk more about this interference in the next 
chapter. 


This time around our Technical Manual is no help as there are no 
routines already written. 


First we will need a change mode routine to open DF2 and set the 
MODE to 2--the HiRes mode. At least our manual tells us this 
much. Since you will also need this routine to display your 
Picture in your program, the change video routine we used in the 
64 column, the BO column and the dual screen modes is a bit 
long. The routine we used in Introduction To 2068 Machine Code 
is shorter. We also want to save as much space as necessary so 
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we will be writing to chunk 7. The UDG, the machine stack and 
the Ram Resident code take up the top 2280 bytes. SO we can only 
go up to 62254 in memory. 


65217 F3  CHGVID DI: NO INTERRUFTS 

62218 SEO1 LD 4,1 :CALL THE CHGVIDEO ROUTINE ІМ 
65220 DEF4 QUT (244),A: ЕХКОМ 

65222 DBFF IN А, (255) 

65224 CBFF SET 7, А 

63226 D3FF QUT (2595.80 

63228 ЗЕОФ LD ^,6 

65250 FS FUSH AF 

65251 ЕВ ЕІ 

65252 CDBEOE CALL 5726: CHANGE VIDEO 

63235 F3 DI 

63236 DBFF IN А, (255): ALTHOUGH DF2 IS OFEN GO 
63258 CBBF RES 7,8 BACK TO SINGLE MODE AND 
65240 ОЗЕР OUT (255),А GO BACK TO HOME BANK 
63242 AF XOR A 

65245 DIF4 OUT (244),A 

65245 F1 POP AF 

63246 FEBO CF 128 

65248 2002 JR NZ,END 

62250 5206ЕЕ LD (652864),A 

65255 ЕВ END EI 

65254 С9 RET 


The reason why we go back to the single mode screen but leave 
DF2 open is that the routine sets all the attributes in DF? to 
О and since an attribute of О means black paper and ink, it 
means that you would see absolutely nothing until you also run 
the following routine which we call FILL and load immediately 
below the above routine: 


63200 SEB FILL LD А, 56: Attribute, white ink, black 
63202 210060 LD HL, 24576: DF2 paper 
65205 0618 LD B,24 

63207 ОЕОО LOOP LD C,O: ACTUALLY 256 THE WAY WE WILL 
63209 77 LOOP i LD (HL),A: BE USING IT 

63210 23 INC HL 

63211 OD DEC C 

65212 20FB JR NZ,LOOF1 

65214 ТОРУ DJNZ LOOF 

65216 C9 RET 


This routine as written will only fill the top Ird of the screen 
with the attribute of white ink, black paper. To fill the middle 
third we must poke 63203-4 with 26112 (6800H) and to fill the 
bottom third we poke the same address with 28160 (7000H). We had 
better at least fill the bottom third of DF2 with this routine 
or ме will have to type in our next direct command blindly. 


Neither of these programs is on the disk so you will have to 
type them in yourself. 


Chapter 6 Advanced 2068 Machine Code Fage 121 


Now to switch back into Hires mode all we have to do is OUT 
255,2 from Basic. OUT 255,0 switches us back to single screen 
mode. Both without having to invoke a RANDOMIZE USR statement. 


Okay, how do we do our picture? Simple enough. Ав in the Dual 
Screen mode, all print commands still work on DF1 so we can draw 
a black and white picture without color using the standardized 
Basic routines and then proceed to color the picture. 


How do we know what address we are at in DF1? We already have a 
routine for that way back in Chapter 2 with a program called 
DF-LOC. But obviously, we cannot use the normal screen ATTR-LOC 
routine from Chapter 2. But don't dismay, all is not lost. 1+ we 
have the DFi address it is quite simple to calculate the 
corresponding attribute address іп DF2. The two files are 
exactly 8192 bytes apart. If we have the address of the DF1 file 
in HL all we have to do is turn on bit 5 of H and we have the 
attribute address. How about the simple command: 


CBEC SET 6,H. 


With this hint, the astute student will realize that we can also 
use: 
CBBA RES 6,H 


to go from attribute address back to the character address 
merely by turning off bit 5 of the high register. Of course we 
don't necessarily have to use HL to hold the address аз there 
are similar commands for B and D as well. We leave it the the 
student to write this simple adaptation for locating attribute 
addresses. 


The real problem with Hires is that the FAPER pattern color 
changes don't match square character spaces or аге too coarse 
for what you have planned. For example a circle in red ink оп 
yellow paper is easy to draw. Now, filling the inside of the 
circle with a paper color different than red or yellow is going 
to run into a problem by having some of the inside color spill 
out of the circle. The solution to this problem is that you have 
to use thicker pixel lines for the red circle and this may spoil 
your idea. 


Ав you start experimenting with HiRes you will find that you can 
draw a picture, although a bit rough with squared edges, by just 
using the attribute file. You will also discover that by 
alternating using attributes of contrasting colors you can get 
colors other then the basic 8 colors of the 2068. This can be 
further augmented by using alternate pixels on and off with a 
different ink color as well. 


EXTENDED РАІМТ--А HiRes Mode Frogram 


A good paint program will have a routine to blow up a section of 
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the picture so that уои can temporarily adjust pixels and 
attributes as necessary, see how they look and then cancel them 
if it is not what is desired or make them permanent. Good 
programs also have a means of putting patterns into a program as 
well. One such program, which incidentaly was written by а 
fellow SMUG member, is: Extended Paint by David Franson. It is 
available through SMUG for $19.95 and comes with an extensive 20 
page users manual. 


Extended Paint is quite long containing a Basic section of 14200 
bytes and a code section of almost 16000 which means the program 
is too long to include in your program. It only uses code to do 
those things that can't be done readily in Basic. Ап examination 
of the Basic shows a lot of pokes to make various code routine 
do double or triple duty. Most of the code section is reserved 
for holding copies of ОЕ! and DF2 which allows one to paint all 
24 lines of the screen and also to make temporary changes and 
rejecting them by going back to the last permanent change of the 
picture. It omits most of the design of your pixel screen which 
the author assumes you can do using your favorite Script drawing 
program and then working on a saved screen of that program. 


Between a Script writing program using a font of your choice, 
Extended Paint and the two routines given earlier іп this 
chapter you have all that you really need to design and display 
your own masterpieces. You don't need the Script writing program 
if you don't want fancy lettering. 


To show you what you all get with Extended Paint I will describe 
it in detail. Some features are quite unique. Dave discussed 
some of these with me and used some of my suggestions іп 
developing the program. 


There are three direct commands: 


Space Bar to Toggle on and off the Menu. Another problem that 
Dave has solved is where do you put a Menu on the screen. The 
bottom 2 lines of the screen are used for that but because of 
the saving files feature can be rewitten as needed by rewriting 
the picture from the storage files. Fressing the Space bar once 
brings up the Main Menu. Pressing the space bar again returns 
the bottom two lines to the picture mode. 


The following commands need lower case letters. Dave doesn't 
tell you this but his Basic program doesn't allow for upper case 
commands. 


M to toggle the cursor move function on and off. This function 
allows moving around the picture without making changes. 
Extended Faint uses a joystick to move around the cursor. The 
fire button on the joystick signals the computer that you want 
a color change to which you type in the color number from the 
keyboard. Every color change is followed by the option to turn 
on flash and then with a second option for using bright. 
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2 togles on and off the zoom command which blows up а 4 by 2 
section of the screen for resolving any pixel or color problems 
across the bottom of the screen. Each pixel is expanded to a 
full character space in its INE (if оп) or PAFER (if off) color. 
This routine uses code so you have to toggle out of it before 
breaking the program. 


S cancels or aborts anything that was going on and returns you 
to the appropriate menu. 


To get everything into 2 lines of Menu space, abbreviations of 
the Commands were necessary. The Main Menu provides the 
following first letter commands: 


Csr (Cursor color) allows you to change the cursor colors of 
INK, PAPER, BRIGHT and FLASH. Actually Dave’s cursor move 
routine just changes the attribute without ever changing 
the Ink pixels by temporarily storing the attribute of the 
space it occupies апа replacing it with the cursor 
attribute. The stored attribute is put back into its place 
under the move command as the cursor moves on the the next 
space. 


Velcty (Cursor Velocity). Allows a change of cursor move speed 
from 1 to 9 with 1 being fast and 9 slow. 


Fill allows one to fill the entire screen with an attribute of 
your choice. Pattern and Hue are used for smaller portions 
of the screen. 


Border allows one to change border colors. 


Fttrn (Pattern) is used to Paint a particular 1/3rd of the 
screen with a particular attribute. Specifying 1 at the 
first prompt of FROM and 2 at the second prompt of TO 
paints the top third. 2 and 2 the mid third, 3 and 4 the 
bottom third, 1-2 the top two thirds, etc. You get three 
more prompts of Offset, Step and the Attribute Faper, Ink, 
Br (ight) and Р1 (ash). To paint the entire section а solid 
color enter O to Offset and Step and enter the colors you 
want for the attribute. 


Now, for a pattern, repeat the Fttrn Operation with a different 
attribute but this time enter a number other then zero at 
Offset and Step. Ву playing around with various Offsets and 
Steps you get patterns generated on the picture without the 
use of ink pixels but merely by changing attributes in your 
specified set change rates. You can always cancel the whole 
effect by using a zero offset and Step. 


Hue is used to replace all the occurrences of a particular ink 
or paper color in a particular third of the screen with 
another paper or ink color. Obviously Hue should be used 
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early in the design to help set the background colors оғ 
your solids and patterns. 


Refer toggles on and off referring to the normal screen 
attributes file to help you in desiging colors for the 
HiRes mode if you loaded a screen that already had color 
applied to it from the normal screen mode. 


Grab applies the same colors from a normal screen with color to 
the hiqh resolution mode if you happen to like that color 
scheme and merely want to use Extended Faint to resolve 
color clashes. 


Screens brings up the screen menu all commands of which deal 
with saving and getting copies of DF1 and DF2 to Or from 
high memory or to make changes to the Ink pixel screen and 
consists of the following commands: 


Bars puts a series of vertical bars on the pixel screen іп 
Ink color. 


C1s(BW) is something you don't want to unless you want to 
start over as it is the good old Basic CLS epplied to 
the pixel screen only of course. 


Retrn returns you to the Main Menu. 


1PutBW stores a copy of the pixel screen to high memor y 
where it can always be restored with  OGetBW. It is 
also used to permanently store a new copy of the pixel 
Screen after you have made changes that you are happy 
with. NOTE: Any cassette operations done through the 
Tape Menu automatically do a PutBw operation before 
returning to the Main Menu so that you already have a 
copy there. You get a --PutBW ОК-- to tell you of the 
successful completion of the command. 


OGetBW Puts a copy of the pixel screen stored in high 


memory back into DFi. You always get a --GetBW Ok-- 
prompt to tell you of the successful completion of the 
command. 


ZPutCLR (Put Color Screen) is the same "save to high memory 
а copy of DF2", the attribute screen, аз PutBW does 
for the pixel screen. Again you get a --FutCLR OkK-- to 
show successful completion. 


9GetCLR (Get Color Screen) is the same restore from high 
memory of the last PutCLR attribute save back to DF? 
ав GetBW is for the pixel screen. You get the --GetCLS 
Ок-- when done. 
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Tape brings up the Tape Menu which deals with saving and loading 
things to tape. If you are like me and like things on disk 
drive, this section takes a lot of changes to convert to 
disk drive operation. It starts at line 5000 in the Basic 
program and jumps to several subroutines. Also don't forget 
to change the loader program commands and line 1 and delete 
the VERIFY options which also don't work with disks. With 
Aerco Drives don't forget the OUT 244,1 statements 
necessary to activate the operating system. 


бауРКОб saves a copy of the Basic and CODE to cassette with 
option to verify. It automatically does a  1PutBW and 
ZPutCLR as well. 


Basic returns you to Basic. Use GOTO 5000 to reenter. 
Return returns to the Main Menu. 


1LdBW loads а pixel screen from cassette. Low resolution 
colors are also loaded and can be reviewed with the 
Main Menu command REFER. 


OSvBW saves the pixel screen to cassette again with a 
VERIFY option. 


2LdCLR loads а high resolution attribute screen from 
cassette to рғ2. 


9SvCLR saves the attribute screen to cassette again with a 
VERIFY option. 


Output gives you the Output Menu for sending your masterpiece to 
either the 2040 printer, dot matrix printer or a Color Jet 
printer in a pixel by pixel mode or an expanded 4 page wide 
by 5 page long picture. This feature is not included in 
many paint programs. Care should be taken in using the 
expanded modes әз they take considerable time, cause 
printers to get quite hot and can wear out a ribbon in a 
hurry. The gray scale drivers try to reproduce a gray tone 
representation of your picture by using a low density of 
dots for light colors and a high density of dots for dark 
colors. Therefore, pictures with a lot of black and blue 
are harder on your printer and ribbon than light colored 
pictures. You may wish to put your printer off line for а 
time to let it cool down during printing. Don't worry, it 
starts up exactly where it left off without problem when 
put back on line. In all cases "s" aborts the printing. 


S24CLR sends a gray scale print of the attribute screen 
only to the TS2040 printer. 


424GRY sends a gray scale combined print of both pixels and 
attribute files to the TS2040 printer in eight 
sections and requires 12 minutes. Crop marks allow you 
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to paste together the sections into an expanded 
Oversized picture. 


Rtrn returns you to the Main Menu. 


SFsCLR is like 324CLR in that it sends only the attribute 
file to а full sized Epson-compatible printer. 


6FsCLR is like 424GRY in combining both pixel and attribute 
files to send 4 wide by 2 high pages with crop marks 
for assembly to an Epson-compatible printer. It 
requires 55 minutes to print. The picture is roughly 
5 ft by 2 ft when assembled. 


7CanonSM sends a full color print of 2.25 Бу 5 inches to а 
Canon PJ-1080A, IBM Color Jet Printer, Quadram Quad jet 
or Tandy CGP 220 color inkjet printer in about 2 
minutes. 


BCanonLRG sends the same pictures expanded to a 4.5 by 6 
inch format to the same set of printers as the 
7CanonSM command. It takes about 4 1/2 minutes and is 
really great. 


This completes the various Menu commands of Extended Faint. I 
think it shows how much time and energy goes into writing an 
extensive program such as this. Dave’s manual of instructions 
goes on to explain exactly how he created the introductory 
screen for Extended Paint. Until you actually work with the 
Program or try to do it from Basic you don’t realize how much 
time it can save you. 


One last comment. In HiRes Mode the usual К, L, C, E, or G 
cursor doesn't blink as it does in normal mode. It gives you an 
indication of which mode you are in although it makes it а bit 
difficult to find should you decide to List the Program. Just 
remember that you have to save the DF1 file first before listing 
the program or the file is forever gone. 


For those of you who would like to write your own paint program. 
in addition to finding the attribute routine from the pixel 
address you also have to write а cursor moving routine that 
moves a cursor around the screen. Make sure that you also 
include some way Of saving the attribute of the screen your 
cursor is in so you can rewrite it when you move the cursor off 
that character space and on to the next. Special situtations 
exist at the 1/3rd of a screen boundaries which you have to take 
into account. 


Extended Paint's cursor routines wrap around so that running off 
the bottom of the screen causes the cursor to reappear at the 
top of the screen. Other direction runoff produce similar 
opposite effects. Cursor moving routines have been published 
elsewhere. 
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After you have your cursor routines working, you can then work 
оп a zoom routine to expand several character spaces into 
character-wide pixels. Such routines have been published 
elsewhere and maybe you can adapt one of those to your use. Once 
expanded and changed you have to compress it back down and load 
it into the back spot in the picture again. 


Making copies of the two files to high memory and then bringing 
them back down to DF1 or DF2 should prove no problem as all it 
requires is a short LDIR routine. 


Saving and loading files to and from cassette or disk is easy 
but just remember that you can't save DF2 with a SCREENS command 
but require a CODE notation for cassette or a .bin extension for 
disks. 


Printer driver routines that first expand and combine pixel and 
attribute densities and then send them to the printer have not 
been published but sending them sideways to a printer has been 
published. 


Sorry I can't give you all these routines as Dave uses them but 
his program is copyrighted. These last few paragraphs outlining 
what you would have to do also shows what an author has to ао 
through in order to get a working program. Like writing books it 
takes hundreds of hours of time. 


For those of you who have a copy of Extended Faint the following 
partial routine listing should help: 


47353 Hue exchange 
47425 Epson gray scale dump & Jet Frint dump 
47436 Gray scale dump to 2040 printer 
48220 Buffer fill 
49905 Color only gray scale dump 
50510 Screen Menu routine 
50546 Storage of DF1 in high memory 
56490 Storage of DF2 in high memory 
62635 LDIR transfer routine 
62650 ZOOM 
62780 Cursor right 

62893 Cursor left 
63004 Cursor down 
63098 Cursor up 
63198 Fill 

3217 Change Video 


Happy Fainting. 
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CHAPTER 7. PLAYING WITH BORDERS AND SPRITES 
OR 
EVERYTHING FOR THE SERIOUS GAME DESIGNER 


This means smoothly moving horizons that can move up and down 
the screen a pixel line at a time rather than a character space 
at a time. It also means smoothly moving sprites in any 
direction one pixel line at a time and at any speed from as fast 
as laser gun fire to as slow as the proverbial turtle. These 
sprites should also be able to move over each other. 


Although the 2068 Technical Manual Gives sprite support routines 
they are not the smoothly moving ones we are after. So we 
abandon those routines for some that will work. 


To do what we want we are now going to embark on some very fancy 
routines that do some crazy things to the standard mode screen. 
Things that I don't believe even the writers of the ROM ever 
intended it to do. Most of these routines were published for the 
Sinclair Spectrum machine that works on British TV's and had to 
be adapted to work with American TVs. They were originally 
published under the title "Advanced Code for the Sinclair 
Spectrum" by David Webb. Melbourne House Publishers. Sorry, but 
the book is no longer in print. 


To do these things we are going to mess with the Z80's Interrupt 
modes. This was a topic that was a bit too advanced a gub ;ect to 
cover in detail in "Introduction to 2068 Machine Code" but here 
goes. 


Everything You Ever Wanted to Know About Interrupts 
But Were Afraid to Ask? 


The 280 has 5 maskable interrupt modes labeled аз IMO, IM1 and 
ІМ2. IMO is a bit redundant in that it expects ап instruction 
from a peripheral to begin making its way along the data bus 
during the interrupt acknowledge cycle. Unfortunately, the 
Spectrum or the 2068 usually holds FFH on the data bus during an 
interrupt which would mean RST 56 which the 280 duly  executes-- 
jumping to Address 56 and doing that before returning.  Unfor- 
tunately IM1 does the same thing. That is why IMO is redundant. 
IMi is the standard interrupt mode of the 2068 ROM. Address 56 
contains the Maskable Interrupt Routine. 


As the name implies, the maskable interrupts can be masked which 
is another word for saying it can be defeated. Students will 
remember the instruction DI (Disable interrupts) and the stress 
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put on using this instruction before executing any long running 
routine like an LDIR or LDDR routine. By long we mean anything 
that could take longer than 1/60 of a second which is the time 
interval between successive interrupt signals sent to the CFU. 
The 2068 uses this signal to execute its Maskable Interrupt 
Routine at address 56 to scan the keyboard and increment the 
Frames Counter. It also signals the SCLD chip to begin a TV 
refresh cycle. We were also told to never exit machine code 
without doing EI to make sure we didn't have a dead keyboard 
which is equivalent to a crash as the only thing to do is pull 
the plug as the computer is hung up. 


Тһе Т51000 had something called a SLOW and a FAST mode. Fast was 
in reality nothing much more then a DI statement while SLOW was 
little more than an EI statement to reenable Screen refreshes. 


We were also warned never to use the instruction НАСТ as it was 
said to stop execution of the program at that statement and wait 
for an interrupt. With DI in force an interrupt would never 
coma. 


What really happens when an interrupt is received is that the 
CPU finishes the instruction it is on, pushes the program 
counter address of the next instruction on the stack, saves all 
the registers and jumps to address 56 and does the routine there 
until it meets а БЕТ at which point it restores all the 
registers and the program counter and continues as if nothing 
happened. 


On the other hand, the Non-Maskable Interrupt is a hardware ог 
peripheral interrupt. А line inside the computer called  NMI 
normally has 5 volts on it. If for any reason, it temporarily 
goes low, like being grounded, a NMI has occurred. The registers 
are again all saved along with the status 0+ the MI as the 
machine jumps to address 102(66H). On the ZX81/TS1000 machine it 
checks for SLOW and continues without any provision for adding 
another NMI routine. On the 2068 we have a problem as it checks 
for an address in the System Variables located at address 23728- 
25729. If you check your User's Manual you will find the state- 
ment that the addresses are not used. This is due to a bug in 
the next instruction of the ROM. Whether this bug is deliberate 
or not is open to some debate. The instruction in effect reads 
as a JR NZ, 1 and effectively goes right back to the routine it 
just came from if it finds something other than О there. This 
should be a warning to all programmers not to indiscriminately 
use so called "not used" addresses in the System Variable table. 
This means all NMI won't work. 


This is NOT the way a NMI should work. The errant instruction at 
address 109 should be JR Z. This change would cause the computer 
to return immediately if the NMI interrupt address at 22728/9 
was ОООО or jump to the address contained there and handle the 
interrupt with a routine you could write, finally returning to 
the program when finished. Unfortunately, the error is in ROM 


М 


Chapter 7 Advanced 2068 Machine Code Раде 121 


and nothing short of burning a new ROM on an EPROM will correct 
it. Some so called "corrected ROMs" have done exactly that so 
beware. Unless... 


Unless you are NOT in the home bank. If you are in the dock bank 
with an LROS program, your technical manual states that you MUST 
write both a MI and NMI routine to handle interrupts at the 
addresses 56 and 102 respectively. If you are lucky enough to 
have an Aerco disk drive interface you have 64k of БАМ in the 
dock bank at all times. Everytime you use the drives you have to 
make sure you have Chunk O of the dock bank activated and that 
makes the interrupt routines written by Aerco active. It thus 
would be possible to correct the NMI handling routine since the 
Aerco program first starts at address 256 with only the LROS 
identification, the MI and NMI routines below address 256. There 
is only one thing wrong with this and that is that we are in ап 
LROS program and can't run Basic from there. Aerco solves this 
problem by switching back to Chunk О of the Home bank most of 
the time and only using the Dock bank to access the disk drive 
programs. 


Why use the NMI? Certain peripheral devices,  noteably the 
keyboard, can give a NMI to the CPU indicating that they need 
attention. Most computers use the NMI to indicate input coming 
from the keyboard. Ав we saw above, Sinclair computers use the 
MI to scan the keyboard, not the NMI. But that is no reason to 
disable the NMI. Other devices such as a printer or a modem 
could be made to give a NMI when they need attention as well. 


For example, most printers have a 2k to Bk buffer which is 
loaded and then printed out. When empty, it is reloaded with the 
next batch, etc. А11 the time that the printer is emptying its 
buffer it is sending back a signal saying "I'm busy, don't send 
more yet." The way it stands at present, the Print Driver 
program monitors this signal in а wait loop and is really 
wasting time. Instead the "busy" signal could be put on the NMI 
line thus freeing the CPU to do something else and return for 
another buffer reload only when needed. 


Or, for another example, your modem is monitoring the phone for 
calls. Nothing might happen for hours, but when it does the 
modem needs attention immediately. Or yet another, your computer 
is set up to play watchdog for your house yet you would like to 
do an iterative program that takes hours to run overnight and 
have the answer in the morning. You could do both with a working 
NMI. Sinclair had the right idea with the NMI routine address at 
25768. This routine with the same error is also in the Spectrum 
ROM. Why did they chicken out? 


Enough talk about bugs in the ROM and NMI and as far as that 
goes ІМО and IM1. They won't get us anywhere. What about ІМ?? 


When an interrupt occurs, the Z80 takes the byte currently оп 
the data bus as the LOW byte and the contents of the interrupt 
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"I" register as the high byte to form an address. It looks at 
this address, supposedly in a table, to get an address stored 
low byte first to load into the program counter and goes to that 
routine for execution. Suppose the I register held FE and the 
data bus held 40. This would mean looking at ҒЕ4О for an 
address. If РЕЗО contained 38H and ҒЕ41 contained ОО, the jump 
would be to OOSBH. 


In actual fact, since the data bus USUALLY holds РЕН during an 
interrupt all our "vector addresses" would probably end in ЕЕН. 
А problem of 'snow' or picture breakup 15 experienced when 
running code below 32768, due to the fact that code running 
there runs about 20% slower because the ULA (Uncommitted Logic 
Array) which is responsible for producing the TV signal competes 
with the СРО for access to the data bus and the ULA always wins. 
This would mess up all the precise timeing that we need for 
control. Thus, we prefer the address of the jump to be somewhere 
ABOVE 32678 in RAM. This restricts us to ВОН to РЕН for our 1 
register value. 


Inside the Z80 are two special registers called interrupt flip- 
Ғ1орв named IFF1 and  IFF2. During an NMI, IFF2 stores the 
previous value of IFF1 while IFF1 is reset for the duration of 
the interrupt. The function of IFF1 is to tell the CPU whether 
maskable interrupts are allowed. If it were set while doing a 
NMI another MI could occur which would be disaster. Hence IFF1 
is off during а NMI. Thinking back to DI and EI, its IFFi that 
gets SET for DI and RESET for EI. Thus only after the execution 
Of an EI are MI's detected. 


Whenever an interrupt is accepted, the IFFs are reset auto- 
matically. It is the programmer's responsibility to re-enable 
them before returning from the interrupt routine with БЕТІ. It 
could cause untold problems if ап interrupt were to occur 
between enabling them and returning from the last one. Thus we 
have the delayed action of the EI until AFTER the next statement 
has been executed. With a sequence of: 


EI 
RETI 


an interrupt can't occur until after the RETI is done. The use 
of RETI and the I register are seldom discussed іп beginning 
books on machine code either. Now you know how to use them. 


Another instruction often overlooked is LD A,R. When the 
instruction is executed, the P/V flag is set to the contents of 
IFF2. Thus we can use the instruction to see if DI is in effect 
or not. А set F/V flag means it іс NOT. Suppose we want to 
preserve the contents of the IFF2 while we disable the 
interrupts to do something and then we want to restore it to its 
former value. We can do it with: 


LD A,R 
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PUSH АР Save the P/V flag 
DI disable 

Insert what we want to do here. 
РОР AF 
JP PO, NOT ON 
EI 


LD ^,1 also has the same effects on the P/V flag. 


Several paragraphs back we said that the data bus usually held 
FFH on an interrupt. This may not be true for certain hardware 
"add ons" that do not decode signals on the IOREG and READ lines 
of the 280 correctly. Ав a result, the data bus may not be FFH. 
When starting to work on these programs I would always crash 
with the ñerco Disk drives activated, 1.е., OUT 244,1 active. 
When I went to OUT 244,0 no crashes occurred. 


How can we get around the problem of not being certain that the 
data bus will hold an FFH during an interrupt? Quite simply by 
having every byte in a string of 256 bytes hold the same value. 
Since we want to leave the UDG where they are, the highest value 
for the I register will be FEH. Then we have to write addresses 
from FEOO to FEFF with the same value. How about FD? 


That would make the address to jump to FDFD--2 bytes below FEOO 
and just enough room for a JP instruction. FDFD is 65021. Rather 
than give you the routine for initializing IM 2 at this point. 
let it suffice to say that it is called INIL in the programs 
listed later on. 


This concludes our discussion of interrupts and maybe you are 
saying to yourself, "Why did I have to ask?" Well, this is a 
textbook and you may want to refer back to it sometime in the 
future when you аге working оп something else. Maybe a 
re-reading is in order. But don’t give up, it’s going to be 
worth it in the end. 


AMERICAN vs BRITISH TV 


The reason for the interrupt discussion was mentioned but only 
in passing. To re-emphasize directly, we want to control the 
output to the screen. To control that, we must know when the 
output starts and then break into it at the right moment and 
rewrite the output. This will be done by using a НАСТ statement 
in our program and force it to then jump to an Interrupt Handler 
routine where things are timed exactly to several millionths of 
a second. This timing is what we are discussing here. 


When I got to this section, I had to get the help of some TV and 
Ham operator friends who could tell me a bit about how a TV 
Signal is rastered. 


One thing that has always bothered me is that the ROM still 
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contains the 50 cycle codes from British alternating current 
signals to wait for a second. We in America use 60 cycle/second 
alternating current. So why didn't they change them to 60’s? I 
rationalized it away by saying it didn't have to be that exact 
and that 50/60th of a second was close enough. It turns out that 
a correction WAS made when it comes to TV signals. How? 


Read a Spectrum book and then read the TS2068 Technical Manual. 
The Spectrum contains a crystal creating a clock signal at 3.500 
megaHertz, the TS2068 a clock signal of 3.528 megaHertz. Doesn't 
look like much of a difference but it does when generating ТУ 
signals. 


The British TV generates 625 scan lines 50 times a second. The 
American TV only 525 scan lines 60 times а second. Don't bother 
multiplying the numbers together as the number of scan lines 
generated per second is not what we want. What we want is the 
number of T states per TV scan line. For British TV that is: 


$,500,000/(625X50)2 112 T states. 
For the American TS2068 it’s: 
3,528, 000/ (525Ж60)- 112 T states. 


What do you know, the exact same timing. The ULA runs faster in 
America because of a slightly faster clock to exactly compensate 
for what is needed. I wouldn't want to put it to a test but the 
2068 should be slightly faster than the Spectrum in program 
execution as well. So far so good. 


Now we read in the 2068 Technical Manual that 2 scan lines are 
used per pixel height on the screen be it British or American. 
It therefore takes 24x8x2 or 584 scan lines to write the text 
portion of the screen. The rest of the scan lines appear above 
and below the text lines as Border and as scan lines not shown 
on the screen by being off the top and bottom of the CRT mask. 
In America these off screen lines are used for Closed Caption 
data. 


How many scan lines before the text and how many after? This is 
going to vary between British and American Sets. First the 
British: At 625 scan lines per frame and 784 used for text that 
leaves 241 lines for top and bottom borders and off screen. The 
poor Americans on the other hand only have 525 lines per frame 
and if 384 are used in the text portion that leaves a skimpy 141 
scan lines for top and bottom margins and off screen. Remember- 
ing that each scan line is exactly 112 T states long, the amount 
of things that could be done before processing of the picture 
had to start was considerably shorter for the American programs. 
Although not as grand as the British programs, they still work 
and still do wonders. Keep these numbers in mind as we 
continue. 
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What we want to do is create a straight line of color delinea- 
tion right across the screen from the left edge of the CRT to 
the other edge, right through the border and text areas. The 
bottom part of the CRT has one background color and the top 
another such as we would observe as a horizon in an airlane or 
on the sea. Next we want to be able to smoothly move this  hori- 
zon up and down a pixel line at a time, not a character space at 
а time, so as to simulate waves or dives and climbs. Ме also 
want to leave some things in permanent positions on the screen 
to simulate cockpit windows or the crosshairs of a periscope. 


The Interrupt Handler 


This means the critical line is that horizon and if we are going 
to change background colors somewhere through a character space 
we not only have to change the border color at the right time 
but also flip-flop the paper colors of the entire character line 
as well. Our Interrupt handler should be able to handle all 
these different applications. 


Since all the emphasis is going to have to depend upon speed, we 
are going to have to do as much processing of the data as 
possible beforehand and then put it into the *print buffer’ of 
the Interrupt Handler. Then, оп every interrupt, the print 
processor empties? the buffer, one entry at a time. and puts 
the corresponding character and its attributes in the correct 
Place in the display and attribute files respectively. 


We are constantly talking about T states. To the uninitiated 
that means the number of clock cycles, at =,52B,000/second, that 
it takes the CPU to process an instruction. Zilog has published 
a list of these times. A listing is given in Appendix А of 
“Introduction to 2068 Machine Code". The shortest instruction 
takes 4 T states and the longest 23 T states. Since all these 
routines are full of timing loops which you may have to change 
to get these programs adjusted to your particular TV or mohitor, 
I suggest that you get hold of a copy of the Timing Table for 
the Z80. 


We shall label the start of this print buffer as BUFFER. Each 
entry is six bytes long and the data is formatted as follows: 


Attribute byte 

. Attribute address low 
Attribute address high 
Display file address high 
Character data address low 
Character data address high 


O (n $b ¿4 н 


Note the absence of the Display file address low. I£ you don't 
know by now, the attribute address low and the display file 
address low are ALWAYS the same number. The routine saves a bit 
Of time by taking advantage of that fact. 
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We need room for a flag bit in these 6 bytes of data. What do we 
give up? About the only spot is a bit in the attribute byte. We 
need the 3 paper and the 3 ink bits so it's either the Flash bit 
or the Bright bit. Bright would give us more colors so let's 
keep that and give up Flash. What we have decided to do is shift 
the 7 low bits left one byte and use the © bit for this flag. 
This flag is used to allow us to signal either OR-printing or 
OVER-printing. When the flag is SET it will tell the print 
processor to üR-print the 2nd sprite over the first making it 
sort of transparent. If the flag is off, the 2nd sprite covers 
up the 1st in all the spaces it uses. 


In order to generate a stable horizon, it is imperative that the 
routine executed between the interrupt and the horizon generator 
always use exactly the same amount of time. We use this time to 
print out the print buffer so as a result we always have to fill 
up the entire buffer with padded fake characters so it elways 
takes the same amount of processing time. But because American 
TV pictures have less scan lines than the British (remember 
those extra scan lines for the top and bottom border and off the 
screen?), we have had to cut the buffer length from the British 
40 characters to 24 and still keep the horizon at the top of the 
first print line. The routine actually reserves all 40 spaces so 
IF you do not HAVE the horizon sitting right at the top of the 
first line but down somewhere closer to the center of the screen 
which would give you more time, you can expand it out to its 
full 40 or even further (but not without reassembly''). In fact 
we expand the buffer out to 40 in the sprite demo routine and 
then restore it. 


Various other tricks have been resorted to, to make the routines 
as fast as possible. With а 40 character buffer (40x6=240 bytes) 
if we start our buffer at an address of XX10H we can use 


INC L 
as opposed to INC HL 


to step through the buffer as the buffer doesn't до Over a раде 
boundary and thus save 2 T states every time we use it. It has 
the further advantage that we can test for the end of the buffer 
merely by testing the ZERO flag. 


If you are not. going to use the top area of the screen for 
animation or horizon or if you don't mind flickering іп that 
area, then you can expand the number of characters the print 
processor can handle. The top limit is 42 without going over a 
page boundary of memory (а change in the high byte of an 
address). However, beyond this limit, some alteration of the 
correct INC L to INC HL is necessary to step across the раде 
boundaries. Ав an exampe, let's assume our buffer always ends at 
FCFFH. With 42 entries of 6 bytes each, the buffer would start 
at FBFE. The first INC L is okay but the second would have to be 
changed to INC HL to get over FEFF. Similarly, for an 86 
character buffer the start address would be FAFCH requiring the 


V 


Chapter 7 Advanced 2068 Machine Code Fage 127 


4th INC L to also be changed. 


We are all used to using a counter and a loop for repetitive 
events but this wastes time. Even the fastest loop, DJNZ, takes 
15 T states to recycle without doing useful work so many of the 
routines have all the repeats written out. In the print buffer 
routine alone it saves 12x40 = 570 T states which is enough to 
add another character to the buffer all by itself. 


We are now ready for the Interrupt Handler. There will be 
liberal notes explaining it as we go along. Again it is set up 
to be assembled using Zeus. If you do so, omit all the comments 
and you will be able to get everything in this chapter in with 
only 2 different assemblies. 


It is this routine that we will want to jump to upon receiving 
an interrupt so we will have to do a: 


FOKE 65021, 195 
РОКЕ 65022, 112 


FOKE 65025, 222 


in Basic to complete the setup. You will see them in the Basic 
portion of the program when we present it. 


ORG 59500 
DISP 54056 : Store at 48000 
ENT 


BUFFER EQU FF70: Our interrupt jump routine uses 
:the FEOO-FEFE locations so if you expand over 42 characters 
: you have to find another place for it. 


59500 7OFF ВУРЕРТ DEFW BUFFER: USE ONLY 24 CHARACTERS 
59502 0000 CHSTRE DEFB O 

59503 оо BORD DEFB О: STORE FOR ТОР BORDER COLOR 
59504 ҒӘ INTERF FUSH АЕ: SAVE ALL REGISTERS 

39503 CS FUSH BC 

59506 DS FUSH DE 

59507 ЕЗ FUSH HL 

59508 216FEB LD HL, BORD :SET TOF BORDER 

29511 7E LD A, (HL) 

59512 E610 AND 16 

59514 EEOS TOFBRD XOR 5 

59516 D3FE OUT (254),A: BORDER COLOR SET 

59518 77 LD (HL), :SAVE BORDER COLOR 

09519 2170FF LD HL, BUFFER : START WORKING THROUGH 
99522 7E NXTCH LD А, (HL): GET ATTRIBUTE ВУТЕ BUFFER 
59525 a7 AND à: ZERO = FAKE CHARACTER 

59524 286C JR Z, FAKE 

57526 2 INC L:ATTR ADDR TO DE 

59527 SE LD E, (HL) 

59528 2 INC L. 

59529 56 LD D, (HL) 

59550 ЭС INC L:TO CHAR ADDRESS 


59551 1F ККА: FLAG TO CARRY 
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59552 12 LD (ПЕ),А: PRINT ATTRIBUTE 

39533 56 LD D, (HL): DE IS NOW CHAR ADDR 

59554 2C INC L:CHAR ОАТА ADDR TO BC 

59555 4Е LD C, (HL) 

59556 2 INC L 

59557 46 LD В, (HL) 

59558 302F JR NC,NTOR: EVERYTHING WE HAVE DONE TO 


: THIS POINT HAS NOT CHANGED THE CARRY FLAG SO IT STILL HOLDS 
: WHAT WE PUT THERE WITH RRA, NOT SET MEANS OVERPRINT 


59540 EB EX DE,HL: HL NOW SCREEN POINTER 
59541 ОА FOR LD А, (ВС): GET PIXEL LINE 

59542 Bé OR (HL): ADD SCREEN PIXELS 
59545 77 LD (HL),A:PRINT FIXEL LINE 
59544 OZ INC ВС: МХТ PIXEL LINE 

59545 24 INC H:NEXT SCREEN FIXEL LINE 
59546 ОА LD A, (BC):AS АТ FOR, INSTEAD OF А LOOF 
: МЕ ARE DOING 7 MORE TIMES AS WE SAID WE WOULD TO SAVE TIME 
59547 Ве OR (HL) 

59548 77 LD (HL),A 

59549 ОЗ ІМС ЕС 

59550 24 INC H 

59551 ОА LD A, (BC) 

59552 Bé OR (HL) 

59553 77 LD (Но, А 

59554 ОЗ ІМС ВС 

59555 24 INC H 

59556 OA LD а, (BC) 

59557 Bé OR (HL) 

59558 77 LD (HL),A 

59559 ОЗ INC BC 

59560 24 INC H 

59561 OA LD A, (BC) 

59562 Во OR (HL) 

59565 77 LD (HL),A 

59564 05 INC BC 

59565 24 INC H 

59566 OA LD а, (BC) 

29567 Во OR (HL) 

59568 77 LD (НЫ), А 

59569 ОЗ INC BC 

59570 24 INC H 

59571 QA LD A, (BC) 

59572 Bé OR (HL) 

59575 77 LD (HL),A 

59574 05 INC BC 

59575 24 INC H 

59576 ОД LD а, (BC) 

59577 Bb OR (HL) 

59578 77 LD (НЫ), А 

59579 EB ЕХ DE,HL: GET БАСЫ BUFFER POINTER 
59580 2 INC L 

59581 С282ЕВ JF NZ, NXTCH: LOOF БАСК UNTIL END OF 


: BUFFER AS WAS DISCUSSED, IF L =O HAVE CROSSED FAGE BOUNDARY 
59584 CIO4E9 JF ROWS: CONTINUE WITH HORIZON GEN 
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59587 ОА NTOR LD A, (EC): FRINT ON TOF OF OLD CHAR 
59588 12 LD (DE),A: PRINT NEW FIXEL LINE 
59589 12 LD (DE), A: BALANCE INSTRUCTION TO MAKE 
:NTOR ТАКЕ AS MUCH TIME AS FOR 

59590 ОЗ INC BC 

59591 14 INC D 

59592 ОА LD А, (RC): AGAIN FOR 7 MORE TIMES 
99593 12 LD (ОЕ), А 

59594 12 LD (DE). А 

59595 05 INC BC 

59596 14 INC D 

59597 OA LD А, (BC) 

59598 12 LD (DE). А 

59599 12 LD (ОЕ), А 

39500 O3 INC BC 

59601 14 INC D 

39602 OA LD A, (BC) 

59603 32 LD (DE),A 

59604 12 LD (DE).A 

59605 05 INC BC 

59606 14 INC D 

59607 ОА LD A, (BC) 

29608 12 LD (DE),A 

59609 12 LD (БЕ), А 

59610 O3 INC BC 

59611 14 INC D 

$9612 OA LD А, (BC) 

59615 12 LD (DE),A 

59614 12 LD (ОЕ). А 

59615 05 INC BC 

59616 14 INC D 

$9617 ОА LD A, (BC) 

59618 12 LD (ОЕ), А 

59619 12 LD (ОЕ), А 

59620 ОЗ INC BC 

59621 14 INC D 
° 59622 ОА LD A, (BC) 

59625 12 LD (ОЕ), А 

59624 СЗЕВЕВ JF 22: BALANCING TIMING 

29627 2C 22 INC L: LOOP BACK UNTIL END OF BUFFER 
59628 С2В2ЕВ JF NZ, NXTCH: L-O ONLY IF BUFFER END 
597651 С504Е9 JP ROWS: CONTINUE WITH HORIZON GEN 
59054 IEOS FAKE LD A.S: SKIP TO NEXT CHAR IN BUFFER 
59636 85 ADD A.L 

59637 OF LD L.A 

59658 11FF50 LD DE, #SOFF: NOW WASTE TIME 

59641 1A LD A, (DE) 

59642 01002D LD BC, #3D00 

59645 ER EX DE.HL 

39646 ОО NOP 

59647 DZO2E9 JF Y 

59650 1891 JR FOR: CONTINUE 


ROWS will be the first line of the next routine which is the 
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Horizon Handler. But first some more theory. 
The Horizon Handler 


Although extending the horizon to the end of the picture tube 
doesn't allow us to write pixels on the border area, it does get 
rid of the confines of the border and makes the picture look 
bigger. The reason we can't write to the border is that it gets 
printed quite rapidly and there isn't enough time to switch it 
fast enough with OUT statements as we would have to do for 
pixels. 


Keep in mind that the Interrupt Handler is running in the CFU 
while the ULA is writing the lines of the screen aff the top of 
the picture tube and the top border lines down to the first 
print line. Thus if we want our border at this point we could 
jump right into the border change routine. If we want the border 
lower down, we have the option of doing two things: 


1. Do nothing but time how much further down the screen we 
want to go. This allows us to run the border up to the top print 
line at any time. 


2. Lengthen the limit of the print buffer thus allowing it 
to run longer so that we can get more things to the screen. This 
compromises our ability to run the border to the top of the 
screen at any time. The border change routine will still work 
below this lowered limit. 


Which we select will of course depend upon our priorities. Let's 
look at option 1 first. 


The first thing we will do is determine how much time we have to 
wait to change our border color once it gets down to the first 
row Of text. For each pixel line down we will wait the required 
224 T states. This little routine of waits looks like this: 


Load A = # of scan lines to wait 


SCAN1 LD B,15 7 T STATES 
LN DJNZ LN 14¥13+8= 190 T STATES 
AND 255 7 T STATES 
INC HL 6 T STATES 
DEC А 4 T STATES 
УР NZ, БСАМЕ 10 T STATES 


For a total wait of 224 T states. This wait loop will be used іп 
the Horizon Handler. Then all we have to do is an OUT (254), А 
statement with А = border color as shifted and the border color 
is changed. Both the left border and the right will be on the 
same screen line if we time this change at the 'flyback time’ of 
the picture. 


The TV or monitor picture is written by tracing the electron 
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beam(s) across the screen from left to right. At the right the 
beam(s) must be moved back to the left to start the next line. 
А special circuit blanks out this trace so it doesn't show оп 
the screen. This is called 'flyback' and takes roughly 20% of 
the 112 T states needed to print a screen line. Remember a pixel 
print line is 2 screen lines so a single screen line print is 
112 T states Of which roughly Z3 T states are used as flyback 
time. If we miss this time slot and send the OUT command too 
late, the left border screen line will still be the top border 
color while the right border screen line will be the new bottom 
color. 


If the horizon is on a border between character lines this would 
be all we would have to do. We would merely have all the text 
attributes above the change use the top paper color and all the 
text attributes below the change use the bottom paper color. 
These colors can be any of the B standard colors. For purposes 
of the discussion to follow we will be using cyan paper for а 
sky color and blue paper for a sea color. 


If, however, our horizon number (rows) is not divisible by eight 
we will have to have preset the character line involved with 
cyan paper. Then as the ULA is done using them for the last time 
swiftly start switching them to blue paper. As the beam passes 
the right border we have to stop to do an OUT (254),0 to switch 
the border color and then finish the switch of the rest of the 
character attributes to blue. In this way we maximize the amount 
of time we have available for switching the attributes. We will 
need all the time we can get because the fastest we can do this 
is with the two instructions: 


LD (HL), А 7 T states 
INC L 4 T states 


Since we have 52 attributes to change, simple arithmetic says it 
is going to need Z22 T states which is too slow. Since we have 
to write these attributes to low memory we are further slowed 
down with interrupts by the ULA using the data bus. 


After experimenting, the most attributes that we сап hope to 
switch in the allotted time for a continuous level horizon is 
about 22. Since most arcade games tend to have all the action in 
the center of the screen we will put these 22 attributes there. 
This would make our horizon look like: 


where the height of the hill and depth of the valley are really 
only one pixel line off from completely level. 


This is somewhat less then perfection. There, however, are 
several solutions to this problem. The best solution is to fill 
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the five columns on the left with one row of pixels immediately 
above the horizon using cyan ink and do the same just below the 
horizon on the 5 right columns with blue ink. 


The sequence of operations then becomes: 


From the previous interrupt the attributes of the line concerned 
have been filled with cyan paper using any ink desired. We will 
use White ink. 


1. Wait for the exact time. 

2. Fill right 5 attributes with cyan paper, blue ink. 

5. Fill left 5 attributes with blue paper, cyan ink. 

4. Fill middle 22 attributes with blue paper, white ink. 

5. Fill left 5 attributes with blue paper, white ink. 

6. Fill right 5 attributes with blue paper, white ink. 

7. Wait until TV has finished the line but use this time to 
prepare the print buffer for the next interrupt. 

8. Fill all 32 attributes with cyan paper, white ink ready 
for the next interrupt. 


At a certain critical point during step 4, the the electron 
beam(s) will reach the right-hand side of the screen having 
generated the cyan row immediately above the horizon. While the 
beam(s) are in flyback to the left side of the screen, we must 
take а break from filling the attributes to and output the new 
border value which we will store at (BOTBRD+1). We can even add 
16 to the border value to get an audible click from the speaker. 
This combined with the value in (TOPBRD+1) allows us a choice of 
no sound or a 60 to 120 Hz sound. The click will change in pitch 
depending upon how much time there is between the top click and 
the bottom click. 


There is one disadvantage doing things this way. Up to two rows 
ОҒ any sprite, printed on the horizon in the left and right five 
columns will be cyan and blue respectively but will change to 
the desired colors as it moves out of these two columns. 


The technique will work for anything down to 2 text rows above 
the horizon. The number of rows is stored in (ROWS+1). Zero text 
rows pose no problem, as the whole screen will be sea, and we 
just jump to NDWAIT where the border color is changed. However, 
in the very unlikely event that you may require just one text 
row above the horizon, then then you will have to revert to the 
old technique of filling it with ink and using cyan ink and blue 
paper. The reason for this is that there is not enough time to 
manipulate the attributes in the manner required by the new 
technique. In this case the interrupt handler jumps to the label 
WTILN and waits for the TV to reach row one before changing the 
border. In the demo program you will see the hill and valley as 
you move the horizon up to the very top line. 


Scattered throughout the listing you will find labels such as 
HCOL1 to HCOL4. These are used in the next section to change the 
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sky and sea colors. HRZN3 will be used by the horizon movement 
routines. It holds the address of the 26th horizon attribute and 
will be set to ООІВ (in the ROM) whenever no attribute work is 
required. We start by setting (ROWS+1) to 96 which is about 
halfway down the screen. 


After the horizon has been generated. the interrupt handler has 
two more tasks. First, it must "tidy up" the print buffer by 
deleting all the entries just printed, interting zero attribute 
bytes to signify 24 null or fake entries. Part of this is also 
to reset BUFFFT to the first free entry which is now at  BUFFER, 
and sets the number of entries, CHSTRE, to zero. Secondly, it 
retrieves all the registers stored at the beginning of the 
interrupt and terminates. 


Here then is the second part of the interrupt handler which 
generates the border. We also add on the initialization routine 
at the end. 


59652 JEGO ROWS LD 8,96: # OF ROWS TO WAIT 

39654 0602 SUB 2 :USING 2 HERE AVOIDS 1 LINE 
29656 DACCE9 JP C, NOWAIT PROBLEM 
59659 CAC2E9 JP Z,WTILN: IF А=2 WAIT 1 LINE 

59662 5р DEC A 

597665 CA1DE9 JP Z,GO4IT: START HORIZON GENERATION 
$9666 ОФОҒ SCAN1 LD B,35 1 DELAY 224 T STATES 

59568 10FE LN DJNZ, LN 

59670 ЕБЕЕ AND 255 

29672 25 INC HL 

$9675 3D DEC A 

29674 C212E9 JR NZ, 5САМ1 

59677 060A GO4IT LD B,9 1TIMING BALANCER--MAY HAVE TO 


BE ADJUSTED FOR YOUR TV OR MONITOR BY CHANGING THIS LOOP AND 
: THE TWO INSTRUCTIONS FOLLOWING IT 


59679 10FE SELFS DJNZ, SELFS 

59681 7E LD A, (HL): TIMING INSTRUCTION 

59682 7E LD А, (HL): TIMING INSTRUCTION 

59685 211ВОО НК2М3 LD HL, 27: SETUP ТО FRINT TO ROM 
59686 7D LD А, L: FIND 26TH ATTRIBUTE OF LINE 
59687 E6EO AND 224: SAVE ONLY TOP 3 BITS 

29689 47 LD B, А 

59690 116FE8 LD DE, BORD:FIND BOTTOM BORDER COLOR 
99693 1A LD А, (DE) 

$9694 E610 AND 16: SAVE ONLY BEEF BIT 

99696 EEO1 BOTBRD ХОК 1: LOAD 59697 WITH BORDER COLOR 
59698 12 LD (DE),A: SAVE BORDER COLOR 

99699 1Е29 HCOL 1 LD E, 41: СУАМ РАРЕК BLUE INK 

$9701 OEOD HCOL2 LD C, 13: BLUE FAFER CYAN INK 

59703 73 LD (HL),E: FILL RIGHT 5 ATTR WITH CYAN 
:РАРЕК, BLUE INK 

59704 2C INC L 

59705 7% LD (HL), E 

59706 2 INC L 


59707 73 LD (HL),E 
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59708 


59709 73 


89710 


59711 73 


59712 


59715 1EOF 


59715 


sPAPER, CYAN INK 


59716 


: РАРЕК, WHITE INK 


59725 
59726 
59727 
59728 
59729 
59750 
597251 
59752 
59752 
59754 
59735 
59756 
297357 
59758 
59759 
59740 
59741 
59742 
59745 
59744 
59745 


59751 D3FE 
: BORDER. COLOR 


59755 
59754 
59755 
59756 
59757 
59758 
59759 
59760 


2С 


2C 


68 


71 


73 


2C 


73 
2C 
75 
2C 
73 
2C 
75 


2С 
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INC L. 
LD (HL),E 
INC L 
LD (HL),E 
LDL, В 

ЕСО LD E, 15: BLUE PAPER, WHITE INK 
LD (HL),C: FILL 5 LEFT ATTR WITH BLUE 
INC L 
LD (HL),C 
INC L 
LD (HL),C 
INC L 
LD (HL),C 
INC L 
LD (HL),C 
INC L: START ON 22 MID ATTR WITH BLUE 
LD (HL),E 
INC L 
LD (HL),E 
INC L 
LD (HL),E 
INC L 
LD (HL) „E 
INC L 
LD (HL), E 
INC L 
LD (Н), Е 
INC L 
LD (HLD,E 
INC L 
LD (HL), E 
INC L 
LD (HL),E 
INC L 
LD (HL). E 
INC L 
LD (HL). E 
INC L 
LD (HL),E 
INC L 
LD (HL).E 
INC L 
OUT (254).ñ: BEAM IN FLYBACK SO CHANGE 
LD (HL). E 
INC L 
LD (HL). E 
INC L 
LD (HL).E 
INC L ` 
LD (HL), E 


INC L 
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59761 73 LD (HL),E 
59762 2C INC L 

59763 73 LD (HL),E 

59764 2C INC L 

59765 72 LD (HL),E 

59766 2C INC L 

59767 72 LD (HL),E 

59768 2 INC L 

59759 75 LD (HL),E 

59770 7D LD A, L: NOW 5 LEFT ATTR WITH BLUE 
:РАРЕК, WHITE INK 

59771 68 LD L, B 

59772 75 LD (HL),E 

59772 2C INC L 

59774 75 LD (HL),E 

59775 2C INC L 

59776 75 LD (HL),E 

59777 2C INC L 

59778 73 LD (HL),E 

59779 2C INC L 

59780 73 LD (HL),E 

59781 éF LD L, А: FINALLY 5 RIGHT ATTR WITH 
:BLUE PAPER, WHITE INK 

59782 2C INC L 

59783 73 LD (HL),E 

59784 2C INC L 

59785 73 LD (HL),E 

59786 2C INC L 

59787 73 LD (HL),E 

59788 2C INC L 

59789 73 LD (HL),E 

59790 2C INC L 

59791 73 LD (HL),E 

59792 68 LD L, B: STORE START OF ATTR LINE 
59793 ES ІМІТЗ PUSH HL 

$9794 216ЕЕВ LD HL, CHSTRE: ENSURE THAT THE BUFFER 
:15 FILLED WITH FAKE CHARACTERS (ZERO ATTRIBUTE SPACE) 
$9797 7E LD A, (HL) 

59798 A7 AND A 

59799 280F JR Z, END 

59801 110600 INIT? LD ОЕ, 6 

59804 72 LD (HL),D : D=0 SO RESETS CHSTRE 
59805 2170FF LD HL, BUFFER 

59808 226СЕВ LD (EUFFPT).HL 

59811 47 LD B, А 

59812 72 NXTFL LD (HL),D : D=0 SO RESETS ATTR IN 
: BUFFER 

59813 19 ADD HL,DE: TO NEXT ATTR IN BUFFER 
59814 10FC DJNZ NXTFL 

59816 E1 END РОР HL 

59817 7C LD А, H: H-O MEANS NO ATTR TO FILL 
59818 А7 AND А: TEST FOR ZERO 

59819 CABBE9 JP Z, NOPLG 


59822 064D LD B, 77 : WAIT UNTIL TV HAS FINISHED 
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tWITH THIS ATTR LINE. NOTE: IF FLICKERING OCCURS THEN INCREASE 
: THIS DELAY FOR YOUR TV. 


59824 10FE SELF4 DJNZ SELF4 

59826 ОЕ1Е LD C, 51: FILL ATTR LINE WITH СУАМ 
:PAFER, WHITE INK TO PREPARE FOR NEXT INTERRUFT 

59828 54 LD D, H 

59829 5D LD E, L 

59850 1C INC E 

59851 *62F HCOLA LD (HL),47 :СУАМ FAPER, WHITE INK 
59855 EDBO LDIR 

59855 E1 NOFLG РОР HL: RETRIEVE REGISTERS 

59856 Di POP DE 

59857 C1 POF BC 

59858 Fi POP АЕ 

59859 ЕВ Е! 

59840 EDAD RETI: RETURN FROM INTERRUPT 

59842 ОФОЕ WT1LN LD в, 15 

59844 10FE SELF11 0947 SELF11 

59846 ЕФЕҒ AND 255 

59848 23 INC HL 

59849 3D DEC A 

59850 2B DEC HL 

59851 3C INC А 

59852 2A30E9 — NOWAIT LD HL,(BOTBRD): ENTER HERE FOR ROW 
:2ERO HORIZON. FIND NEW BORDER COLOR 

59855 116FE8 LD DE, BORD 

59858 14 LD A, (DE) 

59859 E610 AND 161 SAVE ONLY BEEP 

59861 AC XOR H 

59862 12 LD (DE),A: SAVE IN 

59863 DFE OUT (254),A: OUTPUT IT 

59865 2600 LD H, Or SET FLAG FOR NO ATTR TO FILL 
59867 C391E9 JP INITZ: JUMP BACK TO MAIN ROUTINE 


The Initialization Routine 


We will, of course, be using interrupt mode IM 2, and you will 
see we have elected to use a 257 byte vector table pointing to 
а jump instruction at FDFDH (65021) to the interrupt handler. Ву 
putting the BUFFER at FFIOH we have neatly used up the last 1/2K 
of RAM, wasting only 15 bytes. The following routine sets up the 
vector table at FEOO, selects IM 2 and then jumps into the 
interrupt handler in order to ensure that the buffer is clear. 


29870 F3 INT1 DI: WE CAN’T BE INTERRUPTED UNTIL DONE 
59871 FS PUSH АҒ: SAVE ALL REGISTERS SINCE WE 

: WILL BE EXITING VIA THE INTERRUPT HANDLER WHICH RETRIEVES THEM 
59872 CS FUSH BC 

59875 DS PUSH DE 

29874 ES PUSH HL 

59875 SEFE LD à, 254: SET I REGISTER 


59877 ED47 LD I. А 


Chapter 7 Advanced 2068 Machine Code Раде 147 


59879 2100FE LD HL, ЯҒЕОО: SET UF VECTOR TABLE 
t: STARTING АТ 65024 WITH 257 CONSECUTIVE BYTES OF FDH 

59882 45 LD B, L 

59885 3D DEC А 

59884 77 TBLF LD (НЫ). А 

59885 25 INC HL 

59886 10FC DJNZ TELF: TABLE LOOF 

99888 77 LD (HL), А : THE 257ТН BYTE 

59889 ЗЕ!В LD А, 24: SET А FOR # OF CHARACTERS 
: FOR CHSTRE 

29891 EDSE ІМ 2 :КЕЅЕТ INTERRUPT MODE 

39895 2600 LD H, O 

59895 ES FUSH HL 

39896 216EE8 LD HL, CHASTRE 

59899 С599Е9 JP ІМІТ2: TO INTERRUPT HANDLER TO 


:CLEAR THE PRINT BUFFER 


The DISABLE INTERRUPT ROUTINE 


We of course need a routine to get back to the normal interrupt 
mode. — 


29902 SEZ DISINT LD А, 65 : TO RESET THE I REGISTER 
39904 EDS6 IM 1 

59906 ED47 LD I, A 

59908 C9 RET 


THE HORIZON SET ROUTINE--HRZSTi 


So far we have the routines to get into and write a horizon but 
we have nothing to control the up and down movement of the 


horizon. It will just sit at whatever we have preset (ROWS+1) 
to. 


Although the CPU always receives an interrupt signal at exactly 
the same time of the TV Frame, it will never react to it until 
it has finished processing the current instruction. This сап 
lead to а variation of as much as 27 T states (as in the case of 
the instruction which takes the longest time to complete EX 
(SP), IX.). In human terms this isn't very long but it is long 
enough to process about 1/10th of the way through a row thereby 
affecting our artificial horizon shifting the central level 
portion momentarily to the left or right. In fact, the horizon 
generator can tolerate about a variation of 4 T states either 
more оғ less with no ill effect: as long as we get to the HALT 
instruction (which causes the CFU to execute NOP*s each of which 
takes 4 T states until an interrupt іс received) before ап 
interrupt occurs we will have no problem. 


If you wish to execute some other routine while expecting the 
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interrupt to take you back to the interrupt handler you may get 
some flickering on the screen. This can be corrected Бу making 
the "ink rows", those 5 columns we put on each side, 6 or 7 wide 
until they completely cover the flickering area. Naturallly to 
do this will require changing the horizon routines as they 
calculate the correct addresses correctly and correctly 
manipulate the new attributes. 


We now begin the development of HRZST1. Its function will be to 
delete the last ink rows inserted on the screen and calculate 
the addresses of the new ones, after we have moved the horizon. 
The address of the left 5 ink rows will be stored іп HRZN1, and 
that of the right 5 rows in HRZN2. When no ink rows are required 
as is the case when the horizon is between character lines, then 
the high byte of these two addresses will be zero to signify a 
flag of no work necessary. 


The address of the current attribute line will always be stored 
in HRZN4 and will also be put in the interrupt handler itself at 
{НА2М5+1). Again the high byte will be set to zero to indicate 
no operations necessary and of course pointing the interrupt 
handler to print into ROM which we know has no permanent 
results. This of course is to assure the right timing of the 
border change. 


59909 0000 HRZN1 DEFW О: LEFT 5 INK COLUMN ADDR STORE 
59911 0000 HRZN2 DEFW О; RIGHT 6 INK COLUMN ADDR STORE 
59913 0000 HRZN4 DEFW О: CURRENT ATTR ADDRESS LINE 
tHIGH BYTE OF THESE ADDRESSES = O INDICATES NO WORK NECESSARY 
59915 2А05ЕА HRZST1 LD HL, (HRZNi): DELETE OLD INK ROWS AND 


:ЅЕТ UP NEW VALUES FOR LOCATIONS OF INK ROWS AND ATTRIBUTES 
: ЕМТКУ WITH C= # OF TEXT ROWS ABOVE THE HORIZON 


59918 AF XOR A: A =O, CLEAR 5 LEFT INK ROWS 
59919 77 LD (НЫ), А 
59920 2C INC L 
59921 77 LD (НЫ), А 
59922 2C INC L 
59925 77 LD (HL), А 
59924 2C INC L 
59925 77 LD (HL). AÀA 
59926 2C INC L 
59927 77 LD (HL), А 
59928 2А07ЕА LD HL,(HRZNZ): NOW CLEAR 5 RIGHT INK 
: ROWS 

59951 77 LD (HL),A 
59952 2C INC L 
19955 77 LD (HL). А 
59954 2C INC L 
59955 77 LD (НЫ), А 
59956 2С INC L 
59957 77 LD (HL). А 
59938 2C INC L 
59939 77 LD (HL). A 


59940 79 HRZST2 LD A, C: GET ROWS COUNTER 


N 
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29941 3205E9 LD (ROWS+1),A: SETUP CORRECT VALUE ІМ 
1 INTERRUPT HANDLER 

59944 ҒЕС1 CF 192: IS HORIZON BELOW TEXT AREA? 
59946 3031 JR NC, NOWRK: NO INK WORK NECESSARY 
29948 07 RRCA: LOCATE АТТА LINE 

59949 07 RRCA 

59950 E603 AND 2: SAVE 2 BOTTOM BITS 

59952 5658 ОК 88: ADD OFFSET 

59954 67 LD H.A: HIGH BYTE SET 

59955 79 LD А, C:CALCULATE LOW BYTE 

59956 87 ADD А, А: ZX 

59957 87 ADD А, A: NOW 4X 

59958 ЕФЕО AND 224: SAVE ONLY 2 HIGH BITS 
59940 ФЕ LD ц.а 

59961 2209EA LD (HRZN4),HL: STORE IT 

59964 79 LD A, C 

99965 E607 AND 7: IF HORIZON BETWEEN CHARACTER 
:LINES NO INK WORK NECESSAR 

59967 281C JR Z, NOWRK 

2539969 7D LD А, L: LOCATE 28TH ATTRIBUTE 

59970 F^1B OR 27 

39972 45 LD B, L 

59975 5Е LD L, ñ 

59974 2224Е9 LD (HRZN3+1),HL: PUT IN INTERRUPT 

1 HANDLER 

59977 79 LD А, C: LOCATE 28TH BYTE OF DISFLAY 
:FILE ROW BELOW HORIZON 

59978 1F ККА: DIVIDE ВУ 2 

59979 37 SCF 

59980 1F RRA: DIVIDE BY 2 AND ADD 128 

99981 А7 AND à: CLEAR CARRY FLAG 

$9982 1F ККА : DIVIDE ВУ 2 

39983 А9 ХОК C: FLIP BYTE ACCORDING TQ ORIGINAL 
: NUMBER OF LINES 

59984 E6FB8 AND 248: SAVE 5 HIGH BITS 

39986 A9 ХОК C: FLIP BITS ACCORDING ТО C AGAIN 
59987 67 LD Н, А 

59988 2207ЕА LD (HRZN2), HL: NOW FIRST BYTE OF КОМ 
: ABOVE HORIZON 

59991 25 DEC Н 

59992 68 LD L, В 

59995 2205ЕА LD (HRZN1) . HL 

59996 C9 RET 

29997 АР NOWRE ХОК A: А=0 FUT IN ALL HIGH ADDRESSES 
59998 5206ЕА LD (НК2М1+1),А 

60001 Z208EA LD (HRZN2+1),A 

69004 5225Е9 LD (HRZNZ+1),A 

60007 C9 RET 


The Horizon Set routine will be called by the Horizon Move 
routine. If you just want to reset a horizon level without 
constantly moving it, HRZST1 can be called directly merely by 
loading C with the number of rows above the horizon and calling 
the HRZST1 and then filling in the ink rows and attribute as 
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required. If the horizon level is being set for the first time, 
then you should skip the section that "blanks out" the old ink 
rows by entering at HRZST2 instead. 


THE HORIZON MOVE ROUTINE--HRZMV1 
We need two more variables for the move routine: 


HRZSFD to hold the amount of the move from 1 to 8 lines. 
CNTRL to hold the direction 4 = down and 8 = up. 


Although the routine calls for keyboard control, a joystick read 
could be installed by reading the up and down bits and setting 
them in CNTRL. 


Due to a problem of a horizon on row one described earlier, 
movement has been limited to levels below 1. Although there are 
roughly 236 lines from the top of the text area to the bottom of 
a British screen, there are only about 222 on an American set. 
We thus limit our program at address 60055 to 222. You may need 
to adjust this level higher or lower for your set. It's this 
value that lets you run the horizon right down off the bottom of 
your screen. Don't go overboard with too high a value as, if you 
remember our discussion, the further down the screen the border 
is set, the more time the Interrupt Handler has to run, the less 
time you have to do other things before the CFU gets another 
interrupt. 


The main function of the move routine is to take care of the 
attributes as the horizon moves. If, for example, we have just 
moved the horizon up to row O of the current line or into the 
line above it, then we will need to change a line of attributes 
from sky to sea. Similarly, if we have just moved down into a 
new character line then we must fill its attributes with sky, 
ready for the next interrupt. 


HRZMV1 will be called by the forthcoming master horizon routine, 
HRZNME. When the routine HRZMV1 is completely satisfied with the 
attributes, it makes a jump to HRZST1 in order to set up the new 
values for HRZN1 to HRNZ4 and blank out any old ink rows. 


Presently two unused labels are used in the listing,  HCOLS and 
HCOL6. These will be used by a later routine which will set up 
new sky and sea colors. 


6000B OO HRZSFD РЕРВ © :HORIZON SFEED O TO 8 

60009 00 CNTRL DEFÈ © :HORIZON DIRECTION 4= DOWN 8zUF 
60010 SA6BEA HRZMV1 LD А, (HRZSFD) 

60013 47 LD B, А: STORE SFEED IN B 

60014 ZA69EA LD А, (CNTRL) 

60017 110000 LD DE, O 

60020 CHSF БІТ 2. А: UF? 


60022 C2AS5EA JP NZ, UFZ2 
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60025 СВ57 BIT 2, A: DOWN? 

60027 C8 RET Z: NO CHANGE 

60028 ЗАОЗЕЯ LD А, (ROW+1): CHANGE ROWS ABOVE 
:HORIZON BY HRZSFD AND CONTINUE WITH DOWN 

60051 BO ADD А, B 

60022 FEDE CF 222: SAFETY CHECK FOR MINIMUM 


: HORIZON LEVEL 1. 


YOU МАУ HAVE TO CHANGE FOR YOUR SET 


60054 DO RET NC: TOO LOW 50 NO HORIZON CHANGE 
: NECESSARY 

60025 FECI CF 192: IF ROWS 2192 SKIF TO HRZST1 
60057 АҒ LD C, A: ROWS TO C FOR CALL OF HRZST1 
560038 DZ2OBEA JF NC, HRZST1 

60041 E607 AND 7: ON ROW О ОЕ А LINE? 

60042 2007 JR NZ, NROWZ1 

60045 CRESS BIT 3, B: IS SFEED 8? 

60047 CAOBEA JF 2. HRZST1: IF NOT JUMF TO HRZST1 
60050 1808 JR ROWZ1 

60052 ВВ NROWSZ1 CF B: АКЕ WE MOVING FROM ROW О OF А 
sLINE? 

60055 2805 JR Z, ROWZ1 

60055 D2OBEA JP NC, HRZST1: IF STILL ON SAME LINE 
:JUMF TO HRZST1 AS WELL 

60058 1E20 LD E, Z2: COUNT FOR 1 LINE 

60060 044D LD В, 77: DELAY TO ENSURE TV IS DONE 
sWITH THE NEW LINE 

69062 10FE SELF42 DJNZ SELF42 

60064 O62F HCOLS LD E, 47 : CYAN FAFER, WHITE INK 
60066 C3C9EA JP UPINIT 

60069 ZAa05E9 UF2 LD A, (ROWS+1) 

60072 90 SUB B: DECREASE ROWS ABOVE HORIZON BY 
: HRZSFD 

60072 DB RET C: RETURN IF NEGATIVE 

60074 FEO2 СР 2: ALSO RETURN IF <2 

60076 D8 RET C 

60077 ҒЕВ9 CP 185: IF ROWS 2184 SKIP TO HRZST1 
60079 AF LD C, A: FUT IN C FOR HRZST1 

60080 D2OBEA JP NC, HRZST1 

60083 ED44 NEG 

60085 E607 AND 7 

60087 110000 LD DE, о 

60090 2007 JR №2, NROWZ2: JUMFIF NOT ОМ ROW O 
:0F A LINE 

60092 CHES BIT З.Б: ELSE FILL IN CURRENT LINE 
WITH 

: BLUE РАРЕК, WHITE INK 

60094 2807 JR 2, HCOL6 

60096 11EOFF LD DE, #FFEQ: -32 

60099 B8 NROWZ 2 СР В 

60100 D2OEEA JF NC, HRZST1: OTHERWISE FILL OLD LINE 
:WITH BLUE РАРЕК, WHITE INE 

$0103 O6OF HCOL & LD B,15 :ATTRIBUTE 

60105 2АОЅЕА UFINIT LD HL, (HRZN4) 

60108 19 ADD HL.DE: THE ALL FURFOSE FILLER 
60109 54 LD D.H 
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60110 SD LD E,L 
60111 1C INC E 
60112 70 LD (HL), B 
60113 79 LD А, C 
60114 O11F 00 LD BC, 71 
60117 EDRO LDIK 
60119 4F LD C,A 


60120 СЗОВЕА JF HRZST1: AS ALWAYS JUMF TO HRZST1 


There are quite a few jumps to HRZST1 from various places, 5 to 
be exact depending what you have been doing. We now have all the 
code necessary to set and move the horizon level. HRZMV1 handles 
all the work on the attributes ав the horizon moves, while 
HRZST1 makes sure we know where those ettributes аке,  deletes 
the old ink rows and calculates the new ones. 


THE HRZNMK ROUTINE 


А11 that remains is to actually insert those ink rows into the 
display file before every interrupt (they may have been over- 
printed by sprites since the last one). The master routine for 
this is HRZNMK (МК for Маке) will do this after having called 
HRZMV1, which makes any necessary changes to the attributes and 
variables. Since HRZNMK calls HRZMV1 which calls HRZST1 the only 
program we really have to call directly after each interrupt is 
this one. 


0+ course we have to set up calling this routine by first 
setting CNTRL and HRZSPD of HRZMV1 before doing «о. The next 
program after this is the first of Z demo programs which shows 
how it all comes together. 


60125 CD&AEA 
60126 2АОЗЕА 
: NEEDED 
60129 24 INC H: TEST ZERO BY INC AND DEC H 
: REMEMBER IF HIGH BYTE IS ZERO NO INK NEEDED SIGNAL 


HRZNME CALL HRZMV1: START WITH А CALL 
LD HL, (HRZN1): RETURN IF NO INK ROWS 


60150 25 DEC H 

60151 C8 RET Z 

60132 ЖЕРЕ LD А, 255: A FULL 8 FIXELS 
60134 77 LD (HL),A : FIRST THE LEFT 5 
60155 2C INC L 

60136 77 LD (HL), А 

60157 2C INC L 

60138 77 LD (HL),A 

60129 2 INC L 

60140 77 LD (HL),A 

60141 2C INC L. 

60142 77 LD (HL) ‚А 

60143 2А07ЕА LD HL, (HRZN2): NO NEED TO TEST AGAIN 


zS ТЕ WE HAVE TO DO THE LEFT SIDE WE ALSO HAVE ТО DO THE RIGHT 


44 
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60146 
60147 
60148 
60149 
60150 
60151 
60152 
60155 
60154 
60155 


Not much of a routine but 


77 
2U 
77 


LD (HL),A 
INC L 

LD (HL),A 
INC L 

LD (HL). А 
INC L 

LD (HL),A 
INC L 

LD (HL),A 
КЕТ 


let's 
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say it makes it 


operate this way then including it in HRZMV1. 


Don't you think its about time to see what 
works? The DEMO program below gives a hint 
to achieve but is only the first part. 
what we are trying to achieve and will use 


have written to this point. 


THE DEMO ROUTINE 


we have done 


It, however, 


all the 


The routine gives you direct control over the horizon. 


key 1 


to S 


will 


cause 
pressing CAFS SHIFT to V downwards. 


the 


control the speed of the horizon, 


binary number. 
3 gives the fastest speed, 


routine is just a plain reading 
easily rewritten to read a joystick as well. 


60156 
60159 
60161 
60164 
60165 


60167 : 


60169 
60171 
60172 
60174 
60176 


60178 : 


60180 
60182 
601835 
60185 
50187 
60189 
60190 


60193 : 


60195 


CDDEE9 


DEMO 


DMLP 


ND1 


NU1 


CALL INTI: 
LD C,84 t 
CALL HRZST2 
HALT: WAIT 
LD C. б: C 
LD à, 254 
IN А, (FE): 
CFL: 

AND 31: 

JR 2, ND1: 
SET 2. 

LD А, 247: 
IN A, (254) 
CPL 

AND 21 

JR 7, М: 


horizon to 


move 
Keys 8,9 and О are 


Think of these keys as a 3 
О being the low bit and B the high. 
O by itself the lowest. 
of а 


Most 
keyboard. It 


SET UF IM 2 MODE 


SET INITIAL HORIZON 


FOR INTERRUFT 
= DIRECTION 


READ KEYBOARD CS TO V 


FLIP DIGITS 
SAVE 5 LOW BITS ONLY 


easier 


upwards, 


Fressing 


could 
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to 


so far 


at what we are trying 
illustrates 
routines 


we 


Pressing 
while 
used to 
bit 
all 
of this 
be 


NOT FRESSED, GOTO NEXT TEST 


С: С= 4 = DOWN 


ТЕЗТ 1-5 


NOT UF, TEST SFEED 


SET 4. C: STORE DIRECTION 


LD а, С 


LD (CNTRL). А 


LD А, 259: 
IN A, (254) 


TEST 8-0 
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60197 2F CFL 

60198 E607 AND 7: SAVE RIGHT Z BITS 0-7 
60200 SC ІМС A: ADD 1 1-8 

60201 3268EA LD (HRZSFD),A: STORE 

60204 CDDBEA CALL HRZNMK: DO SETUF 

60207 SE7F LD А, 127: TEST FOR BREAK 
60209 DEFE IN А. (254) 

60211 1F RRA: ROTATE LOW BIT TO CARRY 
60212 38CE JR C, DMLF: NO INFUT SO CONTINUE 
60214 CDFEE9 CALL DISINT: BACK TO IM 1 
60217 C9 RET 


At this point we can test our suite оғ horizon routines as it 
does not use the additional routine we would need if we want to 
change our sky and sea attributes from machine code. At this 
time we assemble our program and save both a copy of the 
assembly and source code. We will be recalling the source code 
and continuing the listing to use the rest of memory at the next 
routine. For owners of disks merely load the program called 
"MASTDEMO". This program will cover everything in this chapter 
Бо at this point don't cheat but just run item 2 of the menu 
"Horizon Demo". Cheating will just spoil the rest of the dema 
for you. 


For people who are assembling their own code, save your 
assembled code under the name of "spr.bin",48000,717. Also use 
the T command to find out the length of your source code апа 
save that as well. 


We need some Basic to go along with this so here is the start of 
the program "MASTDEMO". Use the same line numbers as we will be 
adding to this program as well. 


Part 1. MASTDEMO 


1 CLEAR 57999: CAT "SPR.BIN",59500: REM load code 
2 QUT 244,0 :КЕМ Switch back to home bank to avoid crashs. 

10 CLS: PRINT АТ 3,2; "Select your choice:"; AT 5,4; "1. MOIRE" 
s ТАВ 9;"Hit Any Key To Continue"; TAB 4;"2. Horizon Demo": ТАВ 
10; "Z=down, 1=up": TAB 4;"Z. Horizon with Target": ТАБ 10;"7 = 
down, п = up"; TAB 4; "4. SPRITE Demo" 

15 PRINT TAB 4:"8. END" 

15 IF ІМКЕҮФ ="" THEN GO TO 15 

ZO IF INKEY$ <"1" OR INKEY$ >"8" THEN GO TO 15 

25 LET А = VAL INKEY$ 

50 БОЗУЕ 40+10%A 

49 GO TO 10 

52 RETURN 

60 GOSUR 200: RANDOMIZE USR 59422: FAUSE О: RETURN 

70 RETURN 

BO RETURN 
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90 RETURN 

100 RETURN 

110 RETURN 

120 STOF 

200 FOKE 65021, 195: FOKE 65022,112: POKE 65022:222: КЕМ THIS 
SETS UF THE JUMP FOR OUR INTERRUFT HANDLER 


We also need some code to set up our RANDOMIZE USR numbers. We 
will give you the whole thing although we won't need most of it 
until we have assembled more code. Disassembling this code will 
show the student that we always save HL and sometimes IX before 
calling the program and then restore them before returning to 
basic. Doing some of these routines with a bare call caused 
crashes. 


202 RESTORE 200: FOR X = 59400 TO 59427: READ Y: FOKE X,Y: NEXT 
X 


205 DATA 229, 252, 229, 205, 78, 241, 253, 225, 225, 201, 229, 205, 206, 225, 
225, 201, 229, 205, 252, 234, 225, 201, 229, 205, 59, 238, 225, 201 

206 RETURN 

299 STOP 


There is more to this program and we will be changing and adding 
to it at a later point. Save the program before running it. 


How was the demo? I hope it was worth it. But, as they say "You 
ain’t seen anything yet!" 


Back to work. We finish the horizon routines with one last one 
called: 


THE HORIZON COLOR ROUTINE 


The main function of this routine is to set up the other 
routines for any combination of sea and sky colors along with 
ink colors for above and below the horizon. If you are moving 
sprites through the horizon you should set these two ink colors 
to the same value or the sprite will change color on you as it 
goes through the horizon. 


You, of course, have the option of causing the interrupt handler 
to generate a background "motor" sound, either at 60 Hz or 120 
Hz by adding 16 to one or both of the paper values respectively. 
The registers should be set up as: 


Н = sea paper value (+16 for sound) 

L = sky paper value (+16 for 120 Hz sound) 
В = sea ink value. 

С = sky ink value. 
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NN 
before calling HRZCOL. 
For those of you doing your own assembly on Zeus, relaod your 
Source code and continue. 
ENTRY Н = SEA РАРЕК, L = SKY FAFER, B = SEA INK, C = SKY INK 
ADD 16 TO H OR L OR BOTH FOR MOTOR SOUND 
60218 7C HRZCOL LD А, H 
60219 5251Е9 LD (BOTBRD+1), A 
BO222 E607 AND 7: LEAVE SEA FAFER IN H 
60224 67 LD H, à : BUT WITHOUT SOUND 
60225 7D LDA, L 
60226 327BE8 LD (TOPBRD+1), А 
60229 E607 AND 7: STRIP SOUND FROM SKY FAFER 
90251 5Е LD L, А: RESTORE INL 
60222 07 RLCA :HCOL1 NEEDS SKY-FAFER AS FAFER 
:АМО SEA-PAFER AS INK 
60255 07 RLCA 
60254 07 RLCA 
60235 SF LD E, А: TEMP STORE OF SKY-PAPER AS 
t PAPER 
60236 B4 OR H: ADD SEA PAPER AS INK 
60257 5254Е9 LD (HCOL+1), А 
60240 7С LD А, H: HCOL2 NEEDS SEA-PAFER AS РАРЕБ 
:AND SKY-PAPER AS INK М 
60241 07 RLCA М 
60242 07 КЕСА 
60245 07 RLCA 
60244 57 LD D, А: TEMP STORE OF ЗЕА-РАРЕК AS 
1 РАРЕК 
60245 BS OR L: ADD SKY-FAPER AS INK 
60246 5256Е9 LD (HCOL2+1),A 
60249 7А LD А, D: HCOLZ NEEDS SEA-FAFER AS FAFER 
sAND SEA-INK AS INK 
60250 ВО OR В: ADD SEA-INK AS INK 
60251 5242Е9 LD (HCOLS+1), А 
60254 З2СВЕА LD (HCOL6+1), А: AS DOES НСО 
60257 7B LD A, E: HCOL4 NEEDS SKY-PAPER AS 
РАРЕК 
s AND SKY-INK AS INK 
60258 Ві OR C: ADD SKY-INK AS INK 
60259 S2BBE9 LD (HCOL4+1),A 
60262 =2A1EA LD (HCOLS+1),A: AS DOES HCOLS 
60265 C9 RET 


This will get all the various colors in the right places. As you 
can see, it’s a little bit too much to remember exactly what has 
to go where. 


USING THE FRINT BUFFER FOR STATIONARY ITEMS 
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Up to this point we really haven't used that print buffer as we 
haven't printed anything to the screen. We have merely played 
around with the border and the attributes to get that horizon 
straight across the screen. We now go on to а set of routines 
that will show you how we can use that print buffer to send 
things to the screen each and every interrupt. These should only 
be things that may be overwritten Бу moving sprites as you 
remember we have only 24 spaces if we are not going to 
compromise running the border all the way up to the top line of 
the text area. Later on we will develop sprite routines. If you 
don't move the sprites every frame, which is generally too fast 
for most items anyway, you can flip-flop between printing 
sprites and printing stationary items on alternating 
interrupts. 


This stationary printing becomes useful as for example in 
imposing a set of gunsights onto the center of the screen as the 
enemy ship or boat, in the form of a sprite, moves in back of 
the sight. This would need continual OR-printing оп every 
interrupt. Since time is so short between interrupts (especially 
1+ you are operating the horizon generator at low screen level), 
it would be helpful NOT to have to load all the data for such a 
target sight into the print buffer after every interrupt. 


To do this, we devise a system of routines which use a sub- 
section of the print buffer which we shall call "RO-Buffer" for 
"Read Only Buffer’. Unlike normal entries in the print buffer, 
those in the RO-Buffer will not be erased Бу the interrupt 
handler after they have been printed. This does save time. Thus 
all we have to do before each interrupt is to make sure the 
correct attributes for each cell concerned have been inserted in 
the RO-Buffer. If the attribute mask is the zero byte, then we 
won't even have to do this since the character will always be 
printed with the same attributes regardless of the "old" 
attributes for that cell. 


THE ALTER BUFFER ROUTINE 


Consecutive entries into the buffer normally grow upward from 
the start of the print buffer. To keep them separate, we will 
make the RO-Buffer grow from the end of the print buffer down- 
ward. The two regions should never overlap. We have to define 
two new variables called the ROLNTH to store the number of 
entries in the RO-Buffer and ROBFPT the low address start of the 
RO-Buffer. Making ROLNTH = O means no RO-Buffer. 


We first need a routine to set up this RO-Buffer. What this 
routine actually does is change the value of ROLNTH by the value 
we have in C, which may be positive or negative. Having ad;usted 
ROLNTH, the routine fills all the entries between the end of the 
"normal" entries, i.e., BUFFPT and the beginning of the 
RÜO-Buffer. with "null" characters, to prevent any garbage from 
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being printed. Because of this, ALTRBF should always be called 
with the interrupts disabled. 


ENTRY: С= ALTERATION OF LENGTH 
EXIT: HL- START OF RO-BUFFER, B = 0, A = # OF UNUSED ENTRIES IN 
PRINT BUFFER 


60266 OO ROLNTH DEFB О: RO-BUFFER LENGTH 

60267 9000 КОВЕРТ БЕРИ O: STARTING ADDRESS OF RO-BUFFER 
60269 216АЕВ ALTRBF LD HL, ROLNTH: ALTER ROLNTH 

60272 7E LD А, (HL) 

60273 81 ADD A, C 

60274 77 LD (HL), A 

60275 5АФЕЕВ LD A, (CHSTRE): FIND # OF UNUSED ENTRIES 
:IN PRINT BUFFER (>= O) 

60278 47 LD B, А 

60279 SE18 LD А, 24: THIS NUMBER MUST ВЕ CHANGED 
:IF YOU CHANGE THE LENGTH OF THE PRINT BUFFER 

60281 90 SUB B 

60282 96 SUB (HL): ALSO SUBTRACT ROLNTH 

60283 47 LD B, A: STORE IN B 

60284 2А6СЕВ LD HL, (BUFFPT): FILL WITH NULL CHAR 
60287 2807 JR Z, HOPFL 

60289 110600 LD DE, 6: EACH ENTRY 6 LONG 

60292 72 BLNK LD (HL), D: Dzo 

60295 19 ADD HL, DE: NEXT ENTRY ADDRESS 

60294 1ОҒС DJNZ BLNK 

60296 226BEB LD (КОНВЕРТ), HL: STORE IT 

60299 C9 RET 


Obviously any routine that outputs characters to the print 
buffer can be easily adapted to use the RO-Buffer instead. The 
RO-Buffer is only a subsection of the print buffer. Before 
showing its use we need a routine that will refresh the 
RO-Buffer. 


The Refresh of the RO-Buffer 


This is а SeRVice Routine, hence the label SRVRi. It takes the 
attribute address from an entry, finds the attribute from the 
file, masks it with our standard variable MASK, which аз usual 
is placed directly after ATT, the attribute of our characters. 
The compléted attribute byte is then rotated left by one bit 
(remember that bit O is the OR flag to the interrupt handler) 
and inserted into the RO-Buffer. If we wish to select OR-print- 
ing then we set bit 7 of ATT (bit 7 of MASK should always Бе 0), 
which will then be rotated to bit О before inserting into the 
buffer. АТТ and MASK will be defined later. 


We again use the zero flag to detect the end of the RO-Euffer, 
i.e., when | becomes zero at the page boundary. 
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EXIT: B=MASK, CzATTRIBUTE, A=0, HL- BYTE AFTER PRINT BUFFER 


60500 2А6ВЕН SRVRi LD HL, (ROBFFT) 

60505 ED4B92ED LD BC, (ATT) : В=МАЅК, C=ATTRIBUTE 
60307 2С NXSRV1 INC L: TAKE ATTR ADDRESS 

60308 SE LD Е, (HL) 

60509 2 INC L 

60310 56 LD D, (HL) 

60311 2 DEC L. 

60512 2D DEC L: BACK TO ATTR 

60515 1A LD A, (DE): GET CURRENT ATTR 

60314 А9 ХОК C: CREAT NEW ONE 

60315 no AND B 

60516 А9 XOR C 

60517 07 RLCA :ROTATE LEFT TO PRESERVE OR FLAG 
60318 77 LD (HL),A ZSTORE NEW ATTR IN BUFFER 
60319 7D LD A, L: TO NEXT ENTRY 

60520 C606 ADD А, ё 

60322 6F LD L, A 

60525 20ЕЕ JR NZ, NXSRV1 

60325 C9 RET 


SRVR1 should be called whenever there is a chance that the 
attributes of the cell have been changed, е.д., Бу moving а 
sprite over them or changing the horizon. The routine also gives 
you the opportunity to vary the color of the permanent 
characters on your screen by altering ATT. However, since it 
deals with the entire RO-Buffer every entry in it will also use 
this same ATT value. If this is not desired, then the easiest 
modification is to change addresses 60514 etc. 


From XOR C To LD С, (HL) 
AND B RRC C 
XOR C XOR C 
AND B 
XOR C 


thereby effectively using the original value of ATT with which 
the entry was inserted (by a modified HIPRNT routine which we 
still have to discuss). ОҒ course this modification doesn't fit 
so the program would have to be reassembled. 


The Send Data to RO-Buffer Routine--SRVR?2 


Now for the routine to send pixels to the RO-Buffer. It can be 
either standardized 2068 characters or  UDG graphics. For our 
example we will be sending the pixels of our gunsight. It will 
be 5 character spaces high and 5 character Spaces wide in the 
shape of a diamond. Viz., 
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2 5 4 
5 6 7 8 9 
10 11 12 
15 


Two tables will Бе required. The first will hold the desired 
position on the screen, while the second will be the actual 
pixels for the image stored in the usual 8 across 8 down format. 
The position table and the pixel table must have the UDG's in 


the same order and without gaps but can be located anywhere in 
memory. 


We will be using a special numbering of character spaces on the 
screen. Since each line across the screen is 52 characters wide, 
each row will start with a multiple of 32 starting with О, і.е., 
О, 32, 64, 96, 128, etc. For a change, it is easier to count 
this out in hexadecimal rather than decimal. The numbers then 
become, OO, 20, 40, 60, Во, АО, СО, EO, 100, 120, 140, etc. 
ending at 2ЕО. To this number all we have to add is the column 
number we want, a number from О to 31 or OO to 1Е in hex. We 
will still need 2 bytes for each position. The advantage of this 
is that the low byte will be identical to the low byte of the 
attribute address AND the low byte of the Display File address 
as well. If you prefer a coordinate system, SRVR2 can easily be 
rewritten for that as well. 


The tasks of SRVR2 are to take the position of a character, 
calculate the attribute address, display file address, and the 
character data address and store them all in the correct order 
in RO-Buffer. 


ENTRY: HL = START OF POSITION DATA 

DE = START OF RO-BUFFER AREA 

ВС = ADDRESS ОР CHARACTER TABLE 

А = # OF CHARACTERS 

60326 CS SRVR2 PUSH BC: USE BC AS A CONSTANT 
60327 010800 LD BC, 8 
60220 08 NXCHK9? EX AF, AF':SAVE COUNT 
60551 1C INC E: TO ATTR ADDR LOW 
60332 7E LD &,(HL):XFER LOW BYTE OF АТТК ADDF: 
60555 12 LD (DE),A 
60554 1C INC E: HI BYTE ОЕ ATTR ADDR 
60555 25 INC HL :TO ATTR HI STORE 
60336 7E LD А, (HL): CALC HI ATTR ADDR 
60337 F658 OR 88: ADD 88 
60559 12 LD (DE), A: TO RO-BUFF 
60340 1С INC E: TO DFILE HI ADDR 


60341 E603 AND Z: CALC HI DFILE ADDR 


е 
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60543 07 RLCA 

60544 07 RLCA 

60345 07 RLCA 

60346 F640 OR 64: ADD OFFSET 

60748 12 LD (DE).A :STORE IT 

60349 1C INC E: TO CHAR LO 

60230 23 INC HL: TO CHAR ADDR STORE 

60351 ЕЗ EX (SP),HL: RETRIEVE CHAR FIXEL ADDR 
: SAVE FOSITION ADDRESS 

60352 EB ЕХ БЕ, НЫ 

60555 73 LD (HL), E: STORE ADDR IN BUFFER 

60354 2C INC L 

60255 72 LD (HL).D 

60556 2C INC L 

60557 ЕВ EX DE, HL 

60558 09 ADD HL, BC: ADD 8 TO GET START OF NEXT 
:PIXEL DATA ADDRESS 

60359 ES EX (SF),HL : SAVE NEW CHAR DATA ADDR, 
1RETRIEVE POSITION DATA ADDR 

60560 ов EX AF, АҒ”: RETRIEVE COUNTER 

60361 5р DEC A 

60362 20DE JR NZ, NXCHAR9 

60364 E1 POP HL :СЬЕАК STACK 

60365 C9 RET 


I now have to apologize to my readers. In the above set of 
routines we use ATT and MASK which we still havn’t defined. Next 
in the memory is a program called TARGET which in reality 
combines the printing of a Target with our moving horizon for 
our next demo program. Unfortunately, we can’t run this program 
without also using the 2 programs that follow. This doesn’t 
bother the readers with copies of the programs and code, but to 
get the disassembly right bear with me until I tell you that you 
should again assemble the Program, add to MASTDEMO and finally 
run the second demo. 


Adding the Gunsight to The Moving Horizon. 


We want the gunsight to be centered on the screen. Referring to 
the diagram a few pages back and the discussion of how we were 
going to number character Spaces, the position for the top 
Character is 14FH. We also note that character 2 is one row down 
and one space left or 1FH more at 16EH, followed by character = 
at 16FH and character 4 at 170H. The Srd row starting at 
character S starts at 18D. These positions and the rest will Бе 
put into the data base TRGFOS for target position. That of the 
character pixel data will go into TRGDAT in the same order. 


The first task of TARGET is to call INTi to set up the interrupt 
mode IM 2 and clear the buffer. Next we set up the Horizon 
starting level and finally RO-buffer. For demo purposes,  SRVR1 
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is put in the interrupt loop so that it is called at every 
interrupt but it need not necessarily be in your program if you 
don't move the horizon all the time. The two missing variables 
MASK is loaded with 127 (full, as bit 7 should alway be reset) 
and OR-print by setting ATT 128. 


60366 CDDEE9 TARGET CALL INT1 

60369 F3 DI :NO INTERRUPTS UNTIL DONE 

60570 OESA4 LD C,84: SET HORIZON LEVEL 

60572 CD24EA CALL HRZST2: AND SET IT UF, WE DON'T 
: HAVE ТО CHANGE ANY COLORS 

60375 OEOD LD С, 12: SET УР RO-BUFF, 12 SPACES 
60377 CD6DEB CALL ALTRBF 

60580 EB EX DE,HL :SETS DE TO (КОВЕРТ), GET 
:READY TO XFER DATA TO RO-BUFF 

60381 212FEC LD HL, TRGFOS 

60384 O149EC LD BC, TRGDAT 

60587 SEOD LD А, 15 

60589 CDA6EB CALL SRVR2: DO IT 

60392 21807F LD HL, 47F80: SELECT FULL MASK AND OR- 
PRINTING BY SETTING BIT 7 OF ATT 

60595 2292ED LD (АТТ), Н 

60398 FB EI :READY--ENABLE INTERRUFTS 

60599 СОВСЕВ TSLF CALL SRVR1 

60402 76 HALT: WAIT 

60405 SEFE LD А, 254: TEST KEYBOARD FOR HORIZ MV 
60403 DBFE ІМ А, (254): FIRST CS TO V 

60407 2 CFL 

60408 E61F AND 31 

60410 2802 JR 2, ND2: NOT DOWN 

60412 CBD1 SET 2, С 

60414 SE7F ND2 LD A, 127 


Just for fun 127 is going to give you В to break for up. 247 
returns it to 1-5. 


60416 DBFE IN A, (254) 

60418 2F CFL 

60419 E61F AND 31 

60421 2802 JR Z. NU2 :NOT УР 
60425 CBD9 SET 3, C 

60425 79 NU2 LD ñ. C 

60426 3269EA LD (CNTRL),A 
60429 ЗЕЕР LD А, 229: CHECK FOR SFEED CHANGE 
60431 DBFE IN A, (254) 

60455 2F CFL 

60434 E607 AND 7 

60456 С INC А 

60437 3268EA LD (HRZSPD) ‚А 
60440 CDDBEA CALL HRZNME 
60443 3E7F LD А, 127 

60445 DEFE IN Я, (254) 

60447 1F RRA 


60448 38CD JR С, TSLF: DO IT AGAIN 


A 
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60450 СРЕЕЕЯ CALL DISINT 

60453 ЗАБАЕВ LD A, (ROLNTH): RESET RO-BUFF 
60456 EDAA NEG 

60458 4F LD C,A 

60459 CD6DER CALL ALTREF 

69462 C9 RET 

60465 4FO16EO1 TRGFOS DEFW #014F, #016E 

60467 6FO170018D01 DEFW #016F, #0170, #0180 
60472 8EO18F019001 DEFW #018E, #018F, #0190 
60479 PIOLAEOLAFOL DEFW #0191, #O1AE, #O1AF 
60485 BOO1CFO1 DEFW #0180, #01CF 


The pixel data is arranged in 4 byte chunks, every 2 lines are 
thus the pixels for a character space. 


60489 00181010 TRGDAT DEFB 0,24,16,16 
60492 18101018 DEFB 24,16,16.24 
60497 00000005 DEFB 0,0,0,3 

60501 ОЕ181020 DEFE 14,24,16,48 
60505 1010FE93 DEFB 16,16,254,147 
60509 1018107C DEFE 16,24,16,124 
50513 ООООООВО DEFB 0,0,0,128 
60517 EOZO1018 DEFB 224,48,16,24 
60521 00000092 DEFE 0,0,0, 146 
60525 FF000000 DEFE 255,0,0,0 
60529 21614344 DEFB 35,97, 67, 74 
60525 FF424261 DEFE 255, 66,67,97 
60527 07111100 РЕЕВ 215,17,17,0 
60541 07001111 DEFB 215,0,17, 17 
60545 OS80C8444 DEFB 8,12,132,164 
60549 FFB4840C РЕРВ 255,122,122,12 
60553 00000092 DEFE 0,0,0, 146 
60557 FEOO0000 DEFB 254,0,0,0 
60561 21301018 DEFB 33,48,16,24 
60565 ОЕОЗОООО DEFB 14,2,0,0 
60569 D77C1018 DEFB 215,124,16,24 
60573 1092FE10 DEFE 16,147, 254,16 
60577 08181030 РЕРВ 8, 24,16, 48 
60581 EOB800000 DEFB 224,128,0,0 
60585 10181010 DEFB 16,24,16,16 
60589 18101018 DEFE 24,16,16,24 


We made provision in the print processor part of the interrupt 
handler for an "OR printing" function that merges а new 
character with the current contents of a screen cell іп the 
display file but gave no support for it. Here is that routine. 


The OR-printing Routines 


Whenever we come to print a character on the screen, ме will 
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need to know whether the contents of the destination cell аге to 
be preserved by OR-printing, or destroyed by over-printing. For 
example, when two character in a game move into the same cell we 
will probably want to merge them together, while if we are 
moving a character from one cell to the next, trailing а blank 
behind it to automatically delete the old image, then we 
certainly won’t want to OR-print the space with the old image. 


For these purposes we need a map in memory called an OR-map to 
keep track of which cells are "occupied". Only one bit per cell 
is required. ñ "1" will indicate "cell occupied" and a "O" will 
indicate "cell empty". At 768 cells/screen, we can do the whole 
thing in 96 bytes. 


We will need two routines. А clear the OR-map and a check of the 
OR-map. 


60593 ORMAF DEFS 96: THE МАР ITSELF 
60689 21B1EC CLOR LD HL, ОБМАР: CLEAR ORMAP 
60692 О15ҒОО LD BC, 95 

60695 70 LD (HL),B :B=0 

60696 54 LD D.H 

60697 5р LD E,L 

60698 13 INC DE 

60699 EDBO LDIR 

60701 C9 RET 


Everytime we are preparing to send a character to the print 
buffer and wish it to be considered for OR-printing with 
existing and future characters, we should access the bit 
corresponding to the destination cell in the OR-map. 


If that bit is set, then we know there is already something in 
that cell, and we select OR-printing by setting bit 7 of the 
attribute byte, АТТ. If the bit is zero then as far as we are 
concerned the cell 1% empty. We then set the proper bit of the 
OR-map to signal that the cell is now full and reset bit 7 of 
ATT to select OVER-printing. The character is then sent to the 
print buffer using HIFRINT in the usual manner. 


The following routine, ORCHK, carries out these steps using the 
pointer ATCC, which holds the location of the current attribute 
byte, as a means of locating the correct OR-map bit. 


60702 2A4BED ORCHE LD HL, (ATCC) 

60705 7D LD А, :DIVIDE 10 LOWEST BITS OF ATTR 
t ADDR BY 8 

60706 CR1C RR H 

60708 1F RRA 

60709 CHIC RR H 

60711 1F RRA 

60712 CRZF SRL А 


60714 SF LD E, A: STORE IN DE 


A 
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60715 1600 LD D,o 

60717 7D LD ñ. L 

60718 21B1EC LD HL, ОКМАР 

60721 19 ADD HL, DE: ADD OFFSET 

60722 E607 AND 7: ROTATE A MASE UNTIL "1" IS OVER 
:ТНЕ REQUIRED BIT 

60724 47 LD B,A 

60725 O04 INC B 

60726 3EO1 LD A, 1 

69728 OF NX TROT КЕСА 

60729 10FD DJNZ NXTROT 

60731 АР LD C, A: STORE MASK IN C 

60752 AG AND (HL) :CELL OCCUFIED 

60755 1192ED LD DE, АТТ 

60756 10 LD А, (DE) 

60737 CREF RES 7, А 

60739 2802 JR Z, NOTOR: IF NOT THEN ОУЕК-РКІМТ 
60741 CEFF БЕТ 7, А: ELSE OR-FRINT 

60745 12 NOTOR LD (DE),A 

60744 79 LD A.C :NOW SET БІТ IN OR-MAF = USED 
60745 BS ОБ (HL) 

60746 77 LD (НЫ), А 

60747 C9 RET 


The variable ATCC called in this routine is also used by HIFRINT 
which follows. 


The Frint to the Normal Buffer Routine 


Here finally is the routine to set up the regular print buffer. 
We again use the attribute file address to keep track of where 
we are in the display file rather than the way Sinclair Basic 
operates. The variable ATCC set to 5800H sets our marker to the 
top left home position of the screen. 


Remembering that CHSTRE hold the number of used entries іп the 
print buffer and BUFFPT point at the next free entry we are 
ready to begin. Note that А must be loaded with character codes 
Of either characters below code 128 or UDG character codes. 


60748 0058 ATCC DEFW #5800 
60750 ООЗС CHARS DEFW #3000 


ENTRY: A=CHARACTER CODE 

EXIT: BC= ADDRESS OF CHARACTER DATA 
DE= ATCC (AS DEFINED ABOVE) 
HL= NEXT BUFFER ENTRY 
A = HI BYTE OF DFILE ADDRESS 


60752 6F HIFRINT LD L, А: MULTIFLY CODE BY 8 
60755 2600 LD H. O 
60755 29 ADD HL, HL 


60756 29 ADD HL, HL 
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VAN 
60757 29 ADD HL, HL 
60758 EDSBA4EED LD DE, (CHARS) 
60762 19 ADD HL,DE: ADD OFFSET-NOW AT CHAR 
:FIXEL ADDR 
60763 44 LD B, H: STORE IN EC 
60764 4D LD C, L 
60765 216ЕЕЗ FLACE LD HL. CHSTRE 
60768 7E FWAIT LD ñ, (HL) 
60769 FE18 CF 24 :MUST БЕ FOKED WITH DIFFERENT 
:BUFFER LENGTH IF CHANGED 
60771 DAS&SED JF C, GO 
60774 ЕВ EI 
60775 18F7 JR FWAIT 
60777 F3 GQ DI 
60778 24 INC (HL) :UFDATE EUFFER CHAR COUNT 
60779 EDSBACED LD DE, (ATCC) 
60783 2092ED LD HL, (ATT) :HzMASK, L=ATT 
60786 1А LD А, (DE) : MAKE NEW ATTR 
60787 AD XOR L 
60788 A4 AND H 
60789 AD XOR L 
60790 2А5СЕВ LD HL, (BUFFFT) :HL= FIRST FREE BUFFER 
sLOCATION, ROTATE AND STORE ATTR 
69793 07 RLCA 
60794 77 LD (HL), А uA 
60795 2С INC L :STORE ATTR ADDR 
60796 7% LD (HL), Е 
60797 23 INC HL 
60798 72 LD (HL), D 
60799 2 INC L 
60800 7A LD А, D :FIND AND STORE HI BYTE OF 
:DFILE ADDR 
60801 E603 AND 3 
60805 07 RLCA 
60804 07 RLCA 
60805 07 RLCA 
60806 F640 OR 64 : ADD OFFSET 
60808 77 LD (HL), А 
60809 22 INC HL 
60810 71 LD (HL), C :STORE CHAR DATA ADDR 
60811 2C INC L 
60812 70 LD (HL), B 
60815 23 INC HL :5ЕТ BUFFER TO NEXT FREE ENTRY 
60814 226CE8 LD (BUFFFT),HL 
60817 С9 RET 
And the last 2 bytes we need: 
60818 ZB ATT DEFE 56 
60819 ОО MASE РЕРВ о 
- 


It's time to assemble the code again and save it. We can use the 
same title and starting address as previously. The length now 
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becomes 1319. We also should save the source code and we may as 
well use the old name for that as well. Use the Zeus T command 
to find out how much longer the source program has grown since 
last time. 


This also means that we are finally ready for our second demo. 
We, of course, could test the printing of the target by itself 
but it is а lot more impressive to do both the border movement 
and the target together. We do have to change our Basic Frogram 
MASTDEMO a bit. 


All we have to do is change line 70 to read: 
70 GOSUB 200: RANDOMIZE USR 59416: RETURN 


We have already put the call at 59416 with the subroutine at 
line 200. Save your new copy of "MASTDEMO" and run the program 
using option = on the menu. Note how a different line of keys 
has to be used for "up" this time. 


We are finally getting somewhere, aren't we. А11 we really need 
ere some sprite targets to shoot at. 


FLOTTING and DRAWING 


There are times when the fastest мау to put a point on the 
screen is with FLOT or a fast machine code equivalent of it. 
Straight lines also are easy with DRAW. With INVERSE or OVER 
active, it can be a new point or line or erasing the old one. 
These routines are faster than the Basic ones mainly becaose a 
lot of the error checking of the basic routines has been 
removed. We do need a routine to draw to all 24 lines of the 
screen. 


The FLOT Routine 


The FLOT routine calculates the attribute address from the DFILE 
address. This is easier and faster than going back to the 
original coordinates each time. We also use our own FFLAG so it 
won*t interfere with the Basic System Variable at 25697. QVER 1 
is bit 1 and INVERSE 1 is bit Z which is not the same two bits 
as in Basic where it is 2 and о respectively. 


We also employ a coordinate system with (0,0) at the top left 
corner of the screen rather than the bottom left. Actually the 
Basic routine converts X and Y to top right coordinates before 
running so why not start with that designation in the first 
place. The bottom right corner becomes (255,191) as we go to all 
24 lines of the screen rather than only the top 22 as in Basic. 
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PLOT also uses the two data bytes АТТ and MASK 
the last routine with. 


ENTRY: HzX 
EXIT: 
A= (DE), Cz 


60820 00 
60821 7D 
:IN DFILE 
60822 ЕСО 
60824 1Ғ 
60825 27 
60826 1Е 
60827 OF 
60828 AD 
60829 ЕБЕВ 
60831 AD 
60832 57 
60833 7C 
60834 07 
60855 07 
60856 07 
60857 АО 
60838 E6C7 
60840 AD 
60841 07 
60842 07 
60843 SF 
60844 DS 
60845 7A 
60846 OF 
60847 OF 
60848 OF 
60849 E603 
60851 F658 
60852 57 
60854 ED4B92ED 
60858 1А 
60859 a9 
60860 АО 
60861 А9 
60862 12 
60863 D1 
60864 7С 
60865 E607 
60867 47 
60868 04 
60869 ЗЕРЕ 
60871 OF 


FFLAG 
FLOT 


FLOOP 


60872 10FD 
60874 47 
60875 3Aa94ED 
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L-Y (TOP LEFT CORNER IS 
DE-ADDRESS OF FIXEL IN DISFLAY FILE 
(PFLAG) 


BIT 1 


РЕРВ © 
LD A, L: 


AND 192: 
RRA 

SCF 

RRA 
RRCA 
XOR L 
AND 248 
XOR L 
LD D, А 
LD а, H 
RLCA 
RLCA 
RLCA 
XOR L 
AND 199 
XOR L 
RLCA 
RLCA 

LD E, А 
PUSH DE 
LD А, D: 
RRCA 
RRCA 
RRCA 
AND = 


Chapter 7 


which we ended 


(0,0) 


(PFLALG)- OVER, БІТ Z= INVERSE 


FIND ADDRESS OF REGUIRED BYTE 


KEEF WITHIN RANGE 


: ADDRESS STORED IN DE 


FIND ATTR ADDR 


OR 88: ADD OFFSET 


LD D, А 
LD BC, 


XOR C 
AND B 
хок C 
LD (DE), 


(ATT) 
LD A, (DE): 


CHANGE ATTR 


A 


POP DE :RETRIEVE DFILE ADDR 


LD ñ. H 
AND 7 
LD B. ñ 


INC B :B HOLDS 
LD ñ. FE 


(TARGET BIT #)+1 


RRCA :ROTATE А WINDOW TO TARGET БІТ 
:MISSING EIT IS THE WINDOW 


DJNZ РЕООР 
LD P. A 
LD A, (FFLAG) :PUT (FFLAG) IN C 
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60878 АҒ LD C, A 

60879 1А LD А, (DE) 

60880 СВ49 BIT 1, C: OVER? 
60882 2001 JR NZ, DVERI 

60884 Ао AND B 

60885 CES? OVER1 БІТ 5, C : INVERSE? 
60887 2002 JR NZ. ІМУІ 

60889 АВ XOR В 

60890 2F CFL :INVERT WINDOW GIVING БІТ 
60891 12 INV1 LD (DE). А 

60892 C9 RET 


The final part of the routine that does the actual plotting 
merits some explanation if you already are not familiar with 
OVER and INVERSE printing. Ignoring what happens to the other 7 
bits in our byte, since they are always unchanged іп the епа, 
let us just examine the behavior of the "target" bit. 


AND B 


makes the target zero if OVER O is selected. OVER 1 cause the 
instruction to be skipped. 


BIT Z, C 
JR NZ, INVI 


checks for inverse and jumps to the end if  INVERSE 1. leaving 
the bit as it was if OVER 1 was selected, or zero (PAPER) if 
OVER © was selected. 


Finally, having "narrowed down" our selections to INVERSE Q, 


XOR B 
CFL 


leaves the bit complemented in the case of OVER 1, or set in the 
case of OVER O. The byte is then replaced in the DFILE. 


The DRAW Routine 


Lest ye be dismayed, shouldn't every good book on screen 
printing contain an explanation of the draw routine? This one 
follows the same algorithm of the ROM of the 2068 but maximizes 
the speed of the routine. It gets quite involved. 


We will be using the same coordinates as the FLOT routine just 
given by setting the upper left corner to (0,0). We also assume 
we are drawing from (X1, Y1) to (X2. Y2) both inclusive. Ше 
start by plotting (X1, Y1). 


Next we have to decide in what direction to draw the line. IF 
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(X2 = X1) is positive, we will be drawing to the right. If it is 
negative, we draw to the left. Similarly, if (Y2 - Y1) is 
positive, we will be drawing down, otherwise it's up. 


The routine loads the D and E registers with the unit changes in 
X and Y respectively as related to the direction along each 
axis, i.e., D = 1 means right while Е = -1, actually 255, means 
up. 


The rough part comes in deciding exactly how a line can be 
formed by making incremental unit jumps either horizontally, 
vertically or diagonally between points on a grid. Straight 
horizontally or straight vertically are easy and even a perfect 
45 degree diagonal isn't bad. Its the other lines between these 
simple cases that have to consist of combinations of straight 
and diagonal mixtures in the correct proportion. 


We define B as ABS (X2 - X1) and C as ARS (Y2 - Y1). If B is 
greater than C, then we will need a mixture of HORIZONTAL and 
diagonal steps. If Bis less then C we need a mixture of 
VERTICAL and diagonal steps. Obviously, if В=С we only need 
diagonal steps. 


The routine decides whether we need vertical or horizontal 
steps, and stores the required value of DE, as explained 
earilier, in the variable VHSTF. The direction of the diagonal 
steps is stored in DIASTP. 


We can readilly determine how many steps of horizontal or 


vertical and diagonal we need. If B- C is positive we need 
Horizontal steps equal to B - C along with C diagonal steps. If, 
on the other hand, B- C is negative we need ABS (B - C) 


vertical steps with B diagonal steps. However, we always select 
B to handle the greater number of steps be they vertical, 
horizontal or diagional and C to handle the other, whichever it 


is. We now only have to ensure that the straight and diagonal 


steps are evenly distributed. The following procedure is used. 


B is copied to H, and then halved and copied to L. Now, entering 
the loop, С is added to L, and if the result equals or exceeds 
B, then it is reduced by B and a diagonal step is taken. 
Otherwise, a straight step is taken. A point іс Plotted, the 
counter in H is decremented and the loop is repeated until the 
line is complete. 


You can also think of the loop as continually adding C to itself 
and taking a diagonal step until a new multiple of Bis passed. 
The reason L is initialized to B/2 is simply to assure that the 
line is straight at the beginning. 


DRAW exits with coordinates of the end point of the line іп HL. 
Since HL also holds the coordinates of the first point of a line 
on entry to the routine, we can therefore use HL unchanged to 
continue drawing the next line starting from this same end 
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point. 


ENTRY: H = X1, L = Yi, B = X2, C = Y? 
DRAWS FROM (H, L) TO (B, C) INCLUSIVE 
EXIT: DE - ADDR OF LAST PIXEL FLOTTED. 
NOTE: B IS THE GREATER, AND C IS THE LESSER OF: 
ABS (X2 - X1) AND AES (Y2 - Y1) 


60893 0100 DIASTF DEFW 1 

60895 0100 VHSTF DEFW 1 

60897 CS DRAW PUSH BC :SAVE WHILE WE CALL PLOT 
60898 CD95ED CALL PLOT :PLOT FIRST POINT 

60901 Ci POP BC :RETRIEVE END POINT 

60902 110101 LD DE, #0101 : INITIALIZE DE WITH RIGHT 
: AND DOWN 

60905 78 LD а, B 

60906 94 SUB H LEFT = -1, RIGHT = +1 

60907 5004 JR NC, X2X1 :RIGHT 

60909 15 DEC D :МАКЕ D 2255 FOR LEFT 

60910 15 DEC D 

60911 ED44 NEG 

60915 47 X2X1 LD B, А 1X2 - X1 

60914 79 LD A, C 

60915 95 SUB L : UF OR DOWN? 

60916 3004 JR NC, Y2Y1 

60918 1D DEC Е :MAKE E = 255 FOR UP 

60919 1D DEC E 

60920 Ер44 NEG 

60922 4Е Y2Y1 LD C, А :Y2 - Y1 

60923 BO OR B :СНЕСК THAT LINE ISN'T А FOINT 
:В + C = О IS А POINT = EQUALS NO CHANGE FROM HL 

60924 C8 КЕТ Z : DONE IF FOINT 

60925 79 LD A, C 

60926 B8 CF B: WHICH IS BIGGER В OR C? 

60927 ES PUSH HL 

60928 62 LD Н, D :STORE DIRECTION OF DIAGONAL 
60929 6B LDL, E 

60930 22DDED LD (DIASTF),HL 

60933 2ЕОО LD L, Ó :DECIDE BETWEEN VERT & HORIZ 
: STEPS DEFENDING ON WHICH IS BIGGER C OR E 

60935 5804 JR C, BBC 

60937 65 LD H. L :8WICH D AND E 

60928 6B LD L, E 

60939 48 LD C, В :ALSO SWITCH B AND С 

60940 47 LD в, A 

60941 22DFED BBC LD (VHSTF),HL :STORE V/H STEP 

:В IS NOW >= C. THE ROUTINE TAKES B - C STR. AND С DIAG STEPS 
60944 60 LD H, в 

60945 78 LD A, B 

60946 СВЗЕ SRL А :DIVIDE ВУ 2 

60948 6F LD L, à 

60949 7D NXTSTF LD ñ. L 

60950 81 ADD А, С 


60951 380z JR C, DIAG : DECIDE ОМ DIAG OR STR STEF 
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s THIS TIME 


60953 
60954 
60956 
60957 
60958 
60962 
60964 
60965 
60969 
60970 
60971 
60972 
60973 
60974 
60975 
609746 
60977 
60980 
60981 
60982 
60983 
60985 
60986 


How about а demo of some interference 


90 DIAG 


EDSEDDED 

1805 

оғ VERHOR 
EDSBDDED 

ЕЗ STEF 
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СР E 

JR С, VERHOR 
SUB E 
LD L, A 
LD DE, 
JR STEP 
LD L, А 
LD DE, (VHSTF) 

EX (SP), HL 

LD à, H :MAKE THE STEP ALONG X 
ADD А, D 

LDH, а 

LD А, L 1MAKE THE STEF ALONG Y 
ADD А, Е 

LDL, A 

PUSH BC :THE ACTUAL PLOT 

CALL PLOT 

POP BC 

ЕХ (SF), HL :GET COUNTER BACK 
DEC H 

JR NZ, NXTSTF 

POP HL 

RET 


(DIASTF) 


graphics plotting using 


our routines? This particular demonstration does not need the IM 


2 Interrupt Handler that we needed for the 
Nothing really fancy here and really 
seen before except that we have an explanation of the code 


produces it. We also need a CLS routine. 


The MOIRE Program 


because although the whole thing is plotted in blue and 


we get another color 
changing of Paper and Ink Pixels in the pattern. 


60987 
60989 
60992 
60994 
60997 
60999 
61001 
61004 
610907 


ЗЕОЕ 
СОВЗЕЕ 
SEO2 
S294ED 
3606 
D3FE 
210E00 
2292ED 
2100FF 


MOIRE 


horizon generation. 
nothing you all haven't 
that 
I call this routine, 


yellow 


the screen because of the rapidly 


LD 4,14: BLUE PAPER, YELLOW INK 

CALL CLS 

LD А, 2: TURN OVER ON 

LD (PFLAG), А 

LD A, 6: BORDER TO YELLOW 

OUT (254). A 

LD HL, 14 :SET ATTR =14 AND MASK = о 

LD (ATT), HL 

LD HL, #FFOO :X1 = 255, Y1 = 0, x2 = 


20, YZ = O AS BC = О EXITING CLS. THIS THEN DRAWS A LINE FROM 
7 THE TOP RIGHT CORNER ТО THE ТОР LEFT CORNER. 


61010 
61013 


CDE1ED 


2C 


CALL DRAW 
INC L : HL= O, X1 = O, YI = O 


LA 


Б, 
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61014 O1BFOO LD BC, #OOBF :X2 = 0, Y2 = 192, 50 DO 
:LEFT BORDER 

61017 CDE1ED CALL DRAW 

61020 24 INC H: X1 = 1. WE NOW CREATE FATTERN IN 
: THE REMAINING FIXELS 

61021 ES NXTDR1 PUSH HL 

61022 O16080 LD BC, #8060 :X2 = 128, Y2 = 96. DRAWS 
:LINE FROM LOWER LEFT TO CENTER OF SCREEN 

61025 CDE1ED CALL DRAW 

61028 C1 POP BC :RESTORE BC WITH 0,192 

61029 CS FUSH BC 

61050 O6FF LD B, 255 :X2 = 255, 50 DRAW FROM 
: CENTER TO LOWER RIGHT CORNER 

61032 CDE1ED CALL DRAW 

61035 E1 POF HL 

61036 2D DEC L: MOVE ONE SPACE UP SCREEN 

61057 20ЕЕ JR NZ, NXTDR1 :CONTINUE ІМ LOOP UNTIL 


zL = О WHICH MEANS АТ THIS POINT THE LEFT AND RIGHT SIDES OF 
t THE SCREEN АКЕ FULL. 


61039 2C INC L: L = 1 TO STAY OFF THE BORDER 
61040 ES NXTDR2 PUSH HL 

61041 O16080 LD BC, #8060 :RESET BC TO CENTER. DRAW 
tFROM TOP EDGE TO CENTER 

61044 CDE1ED CALL DRAW 

61047 C1 РОР BC 

61048 CS FUSH BC 

61049 OEBF LD C, 191 :RESET TO BOTTOM EDGE 
61051 CDE1ED CALL DRAW 

61054 E1 РОР HL 

61055 24 INC H: MOVE А SPACE OVER RIGHTWARDS 
61056 20EE JR NZ, NXTDR2 

61098 C9 RET 


In case you haven't followed the routine completely we have 
drawn every diagonal line possible across the screen going 
through the center point. However, because over is on, whenever 
a conflicting pixel of one line draws over a pixel already drawn 
by another line, the pixel is turned off. This happens quite a 
bit in the center of the screen where all the lines cross. 
Further out there are not as many conflicts but still a few. 
Everything that is blue indicates an even number of prints of 
that pixel while yellow indicates an odd (including the first) 
number of prints of that pixel. Things get confusing where the 
interference colors come in as the eye cannot detect those 
individual pixels. Obviously different color combinations can be 
tried by poking address 60988 with different values of paper and 
ink. This routine also points out how important it is to know 
which registers have to be loaded with what variable to run a 
routine but also what values are in the various registers upon 
exiting a routine as well even if they are nonsense. 


Before assembling we need the CLS routine called by MOIRE. 


^ 
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ENTRY: А = ATTR 
FRESERVED А 
EXIT: ВС= О, DE = #5800, HL = #SAFF 


61059 210040 CLS LD HL, #4000 
61062 010018 LD ЕС. #1800 
61065 75 LD (HL), L :L= 6 
61066 54 LD D, H 

61067 1EO1 LD E, 1 

61069 EDBO LDIR 

61071 77 LD (HL), А 

61072 O1FFO2 LD EC, #O2FF 
61075 EDBO LDIR 

61077 C9 RET 


If speed is of the essence then I should warn you that the DRAW 
routine should only be used if "general" lines from non-specific 
points are required. It is almost always quicker to use a 
customized routine, perhaps employing a lookup table of plotting 
coordinates, if specific lines are being drawn. 


For example, if you frequently need to draw a line right across 
row О of the screen, it is far quicker to load the first 22 
bytes of the DFILE with 255 than it is to draw from (9,9) to 
(255.0). 


We now assemble the source code and save both the source code 
and the object code as previously outlined. We load  "MASTDEMO" 
end change the following line to read: 


50 GOSUB 200: RANDOMIZE USR 59422: PAUSE О: RETURN 


We use the FAUSE О to hold all 24 lines on the screen. Ав soon 
es you hit a key the 2 bottom lines of the pattern are destroyed 
by the program end notation. In our case its the reprinting оғ 
the menu. 


As I said, you have seen it before but now at least you 
understand what was done to do it. 


SFRITES 


We are now ready to begin development of sprite generation, 
printing and control routines for the production of smoothly 
moving flickerless pixel graphics іп conjunction with the 
Interrupt driven print processor. 


We define a sprite to be some image contained in a movable 
Object block of adjacent characters on the screen. This block 
will always be either square or rectangular. The image тау be 
anything from 1X1 on up in size. 
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The most obvious approach to moving a sprite from опе position 
to another is to "blank out" the "old" image by printing spaces 
Over it and then printing the new image in the new position. If 
the two images do not overlap, this is а perfectly acceptable 
technique. 


If, however, as is usually the case, we have only moved the 
sprite a few pixels, then there seems little point in printing 
a space in a cell common to both images, and then have to 
replace it with part of the new image instantly. 


Since you have concluded by now, time is at a premium, we will 
use a more unique approach. Each shape will be surrounded by а 
narrow region of blank pixels, so that ав we move from one 
position to the next, these trailing blanks will wipe out апу 
part of the old image not already obliterated by the printing of 
the new image. 


In this way we can achieve animation in just one print operation 
rather than the two required by the former technique. 
Additionally, the number of characters we need to print will Бе 
halved. This is a decided advantage when you bear in mind that 
our standard interrupt handler can only print 24 characters 
without having to compromise our horizon routine. We already 
used 15 of the 24 for our gunsight which leaves us only 9 for 
anything else. 


To move sprites smoothly we have the capability of moving them 
one pixel at a time. This will be the standard step in what 
follows. We should also have the option of moving more than one 
pixel at a time or not moving every TV frame refresh. 


If our shape is contained in a space of M character spaces wide 
(i.e., 8xM pixels wide) and we want to move а pixel at a time, 
then the most character spaces our sprite can occupy is М+1 
character spaces. 


If in addition, we specify that the shape can never Occupy more 
than M*1 different character spaces wide in moving from the old 
to the new position, then we see that BOTH the old and new 
images can be contained in an area М+1 spaces wide. 


For example, if a 1x1 block occupied pixel spaces 7 and 8 of 
space 14 and spaces 1 to 6 in space 15, we would Бө restricted 
in only moving it 2 pixel spaces right to totally occupy space 
19 only in the new position. Position 14 would then Бе printed 
with a blank. By our restriction, we could not move = pixel 


spaces right this move. There would be other times when а Z 
pixel right move would not be forbidden. 


This restriction is, in practice, quite easy to apply, and leads 
to the result that we animate any shape contained in (m x n? 
characters by continually printing a set of sprite images of 
fixed dimensions (m*1) by (п+1). Thus to move a 1 character cell 
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requires а 2x2 cell, whereas a 2x2 sprite, requires a 3x3 cell. 


If you can imagine our m x п shape floating around within its 
(m+1) by (п+1) sprite, we find that by virtue of B shifts up and 
В shifts right that we can have 64 different images of our 
shape. 


If the shape is movable at one pixel at a time in each of the X 
and Y directions, then each of these 64 patterns would at some 
time need to be printed. 


Before proceeding further, let's define two variables. Ме will 
call the horizontal distance (in pixels) of the shape from the 
left hand edge of its sprite XF, and the vertical distance of 
the shape from the bottom edge of the sprite YF. 


We now have a direct choice over the method of generation of the 
sprite patterns. We may either store just one image in memory 
and manipulate the shape within it bit-wise to obtain the 
required image for printing, or we may store the images in a 
somewhat larger table in КАМ, using an indexing technique to 
"select" the required image without further manipulation. 


The first technique doesn't require much space but is very time 
consuming performing the XP horizontal shifts and ҮР vertical 
shifts on each of the (M-*1)xNx8 bytes twice. 


Although the sprite may be one of 64 possible patterns, the 
situation is not as serious as it seems. We do not need to store 
64 different images in memory as it is possible to produce the 
eight images corresponding to the different values of YF from 
the one image corresponding to a given XP. Thus we only need to 
store B images of the sprite, one for each value of XF. 


We only have to "load" one image of our sprite and then have the 
computer generate the other 7 images from this опе. We store 


them in the following character space order for a $ x 4 sprite: 
1 4 7 10 XX 
2 3 8 11 XX 
5 6 9 12 XX 


Each sprite will be stored as though YP = ©, that is, the sprite 
will be on the bottom edge of the block space with a BLANK top 
line. Then, starting at the upper left corner of the sprite we 
enter the В pixels of character space "1" from top to bottom and 
continue with character space "2" doing the whole left side of 
the block space before starting the second set of character 
spaces. For many sprites you may have a completely blank 
character space because the block MUST be retangular (or 
square). We call this initial block image "о". 


We will be writing a routine to have the computer design the 
other 7 sets of character spaces from this original set. The 


ж” 
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left edge of the 2nd set will have a line of blank pixels as 
each pixel moves left one pixel positon. The character Spaces 


marked "XX" in the above diagram handle the overflow from 
character spaces 10, 11 and 12. These spaces are the +1 in that 
(m+1) in our formula. 


To have the image move right we simply start with image 1 and 
cycle through the various images one at а time and since our 
sprite is going to print in (т+1) spaces wide, we merely have to 
print the cycle of images over each other in the same character 
spaces for the first 8 moves. By this time the originaly blank 
"XX" spaces will have moved to the left of the image. We then 
just move right a character space and repeat. Our sprite 
position will be defined by specifying the ТОР LEFT character 
space of the block on the screen. These character space 
coordinates are called XC and YC respectively. 


To move left we merely cycle through the cycle of images 
backwards. 


The various images corresponding to each value 0+ YF will be 
produced by pointing the sprite generator at th YPth row of the 
ХРЕН image counting downward from the top row "О". Ву pointing 
at the 4th row we effectively move the sprite "up" 4 rows. 


This is for single pixel movement. For it we need 8 images. If 
we opt for 2 pixel at a time movement,. we can cut our memory 
requirement in half because then we only need 4 images as we can 
omit the ist, 3rd, Sth and 7th image. If we go to 1/2 character 
space at a time movement, we only need 2 images, the О and 4th. 
This turns out to be guite jerky but also very fast. 


With this explaination, we can now calculate the amount of space 
we need to store the images. Take an (mx n) character shape, 
enclosed in a (m*1) by (n*1) sprite space and producing "a" 
images, and bearing in mind that each cell requires 8 bytes and 
each set of images requires a preceding blank column, we have: 


Memory needed = 8x (а) х (т+1)х (п+1) +8х (n*1) 
Thus for а 3 by 2 shape moving 2 pixels at а time requires: 
8x 4x (5+1) х (2-1) +8х (2+1) = 408 bytes 


In addition to this, and assuming that all the images for the 
sprites currently in use are stored consecutively in memory, we 
must include zero bytes after the last image of the last sprite, 
to allow for the memory "take up" when YP - 8 and the last image 
is being used. In this case. those B bytes will represent the 
bottom right corner blanking of the sprite. 


To control and keep track of a sprite we will be usina a Sprite 
Motion Table of 17 bytes for each sprite. This table will tell 
our sprite animation routine at what speed to move the sprite 
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along X and Y, the whereabouts of the sprite at any time. the 
location of the image data, the dimensions of the sprite, the 
color it is to be printed in. etc. 

We will use the IY register (another no-no of beginning machine 
code violated) to point at the beginning of a Sprite Motion 
Table whenever we want to move a sprite. Before proceeding to a 
complete breakdown of this table, we REDEFINE XF to be the 
number of the image currently being used by the sprite 
generator. Thus if there are four images, XF will now cycle 
continuously through the values (0,1,2,5) as the sprite moves 
across the screen. When there are 8 images, XF will have the 
same value as before, that is the number of pixels from the 
shape to the left hand edge of the sprite. Otherwise, you will 
need to multiply XP by the step between images to find this 
distance. This conversion must be borne in mind when you are 
writing collision detection routines. 


Here then is a list of a typical motion data table: 
IY*O XP = Current image number (<8) 
IY+1 VX= rate of change of ХР (+ or -) 
1+2 М = number of images = (max value of XP) +1 
IY+3 ХС = leftmost sprite column 
1+4 ҮР (0-7) 
1+5 VT = rate of change of YF (+ or ~) 
IY+4 YC = Position of uppermost sprite line 
IY*7 LO address 

Of row О, cell О of image о 

IY+8 HI address 


1Ү%9 Cycle count= number of repeats of movement 


TY+10 Cycle periods wait this many frames before making 
next move. 


IY*11 Width of expanded sprite 
1Ү%12 Length of expanded sprite 
IY*13 LO 
length of one image = width x depth x 8 
IY+14 HI 
IY*15 Attribute byte and flag for OR printing 


IY+16 Attribute mask 


МЛ 
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The "cycle count" will be decremented every time the routine іс 
used. If not zero the sprite makes its trip again. 


The "cycle period" tells the sprite move routine how many TV 
frames to wait before moving the sprite another increment. This 
together with the motion per move controls your speed across the 
screen. 


As I said. we don't want to figure out all these positions of 
our sprite and type them in. We use two routines to expand each 
sprite. The first is called FADOUT and will copy the dormant 


shape from its storage area to the "sprite image area", adding 
a column of blanks to the right, a line of blanks above it, and 
the statutory preceding blank column to image "0". The second 


routine, SPREX, will manipulate a copy of image О, row by row, 
using shifting and rotating operations to generate the other 
images. 


Because we are allowing our sprite to move at various rates of 
pixels per printing to the screen we must allow for enough 
"margin" so we get image blanking in both horizontal апа 
vertical directions. Without going into a lot of detail, suffice 
it to be stated that the number of blanking pixels in the 
horizontal direction is given by: 


Fh = D(VX + ХР)- 8 
and that in the vertical direction by: 
Ру = VY + ҮР - 8 
where ХР and YF are the maximun rate we will use (О to 7). 


For example, suppose we wish to design, within a 4 x 3 sprite 
and hence а 5 x 2 shape, a fighter plane capable of moving at up 
to four pixels per movement in the X direction and ар to 2 
Pixels іп the Y direction with a maximum rate of XF = 7 and УР 
= 7. Our formulas demand 3 pixels must be left on the right 
margin of our 24 pixel wide sprite and 2 rows must be left blank 
on the top of our 24 high pixel row sprite. 


Fadout Routine 


Fadout uses several "tables" of data which we will only define 
later іп a demo program. Just to list them, опе will Бе the 
actual image table of pixel désign, the 2nd will be the 17 byte 
Motion Table, and the 2rd will be the Expanded Image Space for 
the various images. 


For those of you doing your own assembly, reload the previous 
source code and continue at the end. This code just fits the 
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remaining space. 


OBJECT: TO "FADOUT" ВАКЕ SFRITE DATA AND FRODUCE ENTRIES IN THE 
SFRITE MOTION TABLE. 


ENTRY: DE = SFRITE DATA ADDRESS 
HL = IMAGE STORAGE AREA 
В = COLUMN WIDTH OF STANDARD SFRITE 
С = LINE DEPTH OF STANDARD SPRITE 
IY = SFRITE MOTION DATA ADDR 


EXIT: HL = ADDRESS OF IMAGE О 
В = COLUMN WIDTH OF EXFANDED SFRITE 
C = ROW DEPTH OF EXPANDED SFRITE 
NOTE: HL & BC WILL BE USED BY SFREX 

АР” DESTROYED 


61078 OC FADOUT INC C: CALC # OF ROWS OF EXFANDED 

: SPRITE AND STORE IT 

61079 FD710C LD (IY*12)0,C 

61082 CB21 SLA C 

61084 CB21 SLA C 

61086 CB21 SLA C :X8 

61088 78 LD А, В :STORE RC FOR SFREX 

61089 04 INC B 

61090 FD7OOR LD (IY*11),B :LOAD EXFANDED SFRITE 
: WIDTH 

61092 CS FUSH EC 

61094 08 EX AF, AF? :SAVE COLUMNS COUNTER 
61095 DS FUSH DE : SAVE DATA ADDR 

61096 0600 LD В, О :START WITH COLUMN OF BLANKS 
61098 CS FUSH ВС 

61099 70 LD (HL), B 

61100 OD . DEC C 

61101 CDEEEE CALL CL :CLEARING SUBROUTINE 

61104 С! FOF BC 

61105 79 LD А, C :UPDATE C 

61106 D608 SUB 8 

61108 4F LC C, A :BC = # OF ROWS IN STD COLUMN 
61109 E1 РОР HL : DATA ADDRESS 

61110 D3 FUSH DE 

61111 CS FUSH ВС 

61112 O8 ЕХ AF, АЕ” :GET COUNTER BACK 

61115 ES NXSCOL PUSH HL :INSERT А SFACE ON TOF LINE 
61114 EB ES DE, HL 

61115 2600 LD (HL), O 

61117 OEO7 LD C, 7 :COUNT FOR REST OF SPACE 
61119 CDEEEE CALL CL 

61122 Е1 FOF HL 

61122 C1 FOF EC :FILL REST OF COLUMN WITH 
:SFRITE DATA 

61124 CS FUSH EC :SAVE COUNTER FIRST 

61125 EDBO LDIR 

61127 =D DEC A 


61128 2ОЕЕ JR NZ, NXSCOL 


Chapter 7 Advanced 2068 Machine Code Vol. 1 Fage 181 


61130 C1 FOF BC :EXFAND WITH А RIGHTMOST BLANK 
: COLUMN 

61121 79 LD ñ. C 

61132 C607 ADD A, 7 

61154 4F LD C, ñ 

61125 EB EX DE, HL 

61126 70 LD (HL), В 

61137 CDEEEE CALL CL 

61140 Е1 FOF HL :GET БАСК ADDR OF IMAGE O 
61141 01 РОР DE :AND VALUE IN DE, FOR SFREX 
61142 DS FUSH DE 

61145 ES FUSH HL 

61144 60 LD H. E :CALCULATE # OF BYTES ІМ ONE 
: IMAGE & STORE IT IN SPRITE MOTION DATA 

61145 68 LD L, B 

61146 42 LD B, D 

61147 54 LD D, H 

61148 19 MUL. 1 ADD HL, DE 

61149 10FD DJNZ MUL1 

61151 FD750D LD (IY*13),L 

61154 FD740E LD (IY*14)0,H 

61157 E1 РОР HL 

61158 C1 FOF EC 

61159 FD7507 LD (IY*7).L :FUT IMAGE © LOCATION IN 
tSFRITE MOTION DATA 

61162 FD7498 LD (IY*8),H 

61165 C9 RET 

61166 54 CL LD D, H :CLEARING ROUTINE OF FADOUT 
61167 SD LD E, L 

61168 13 INC DE 

61169 EDEO LDIR 

61171 C9 RET 


Ав you can see, we have already loaded 6 of our 17 sprite motion 
values into the table. 


The Sprite Expand Routine, SFREX 


Now that we have taken our bare, unexpanded sprite data from 
memory and created image О from it, we need to generate the 
other sprites. Аз explained, each successive image is formed Бу 
shifting the rows of the previous one by one or more bits to the 
right. SFREX does this by taking each row of image О in turn, 
copying it into an area of "workspace" and then repeatedlv 
shifting it and copying it into the appropriate position for 
each of the other images. We will label the start of the 
workspace as WESFC. Since we only need to place one row of a 
sprite in it at a time, twenty bytes should be ample--that is 
enough to do a sprite 19 columns wide! 


Раде 182 Advanced 2068 Machine Code Vol. 1 Chapter 7 \ 
ам” 

SFREX also needs IY pointing at the start of the motion data for 
the sprite being worked on. This pointer and the entry values of 
HL and BC are already set up for you by calling FADOUT, so the 
only parameter you have to set after calling FADOUT is the step 
(in pixels) between images stored in D. 
However, beware. Nearly all of the alternate register set is 
used by the routine so if you are intending to come back to 
Basic after using SFREX, be sure to preserve HL* before entering 
this routine. 
OBJECT: TO FORM THE "SHIFTED" IMAGES ОЕ EXFANDED SFRITE DATA АС 
FRODUCED BY "FADOUT" 
ENTRY: HL = ADDRESS OF IMAGE О 

D = STEP BETWEEN IMAGES 

B = WIDTH OF EXFANDED SFRITE 

С = DEPTH OF EXFANDED SPRITE 
PRESERVED: ВС 
DESTROYED: B',C',D',E',H',L" 
EXIT: РЕ’ = ENTRY VALUE OF DE, BC? = O. L = о 

ми 

61172 ОООООООООО WKSFC DEFS 20 :WORKSFACE NEEDED 
61178 0000000000 
61182 0000000000 
61185 ОООООООООО 
61192 3E08 SPREX LD А, 8 
61194 1EFF LD E, 255 
61196 92 SUBDIV SUB D 
61197 1C INC E 
61198 SOFC JR NC, SUBDIV 
61200 FD7302 LD (IY+2), E 
61205 1D DEC E 
61204 DS FUSH DE 
61205 CS PUSH BC 
61206 ОФОО LD В, © : BC = LEN OF 1 COLUMN IN BYTES 
61208 11Е4ЕЕ LD DE, WESFC 
61211 D9 EXX 
61212 E1 FOF HL :H' = WIDTH, L? = 4 OF ROWS 
61213 Бі РОР DE :D' = IMAGE STEF, Е’ = # OF 
: IMAGES - 1 GENERATE ONE КОМ OF EACH IMAGE 
61214 DS NXROWO9 FUSH DE 
61215 44 LD B, H 
61216 D9 ЕХХ : BACK TO NORMAL REGS 
61217 ES FUSH HL :STORE ADDR OF ROW © OF IMAGE 
о 
61218 11F4EE LD DE, WESFC w 
61221 D9 EXX 
61222 D9 NXEYTZ EXX :BUILD THAT ROW OF SPRITE IN WORK 
: SPACE 


61223 7E 


LD А, (HL) 
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61224 09 ADD HL, ЕС 

61225 12 LD (DE), A 

61226 13 INC DE 

61227 D9 EXX 

61228 10F8 DJNZ NXEYTZ 

61230 D9 NXPOS ЕХХ 

61251 EF EX DE, HL 

61232 D9 EXX 

61232 DS FUSH DE :SHIFT ROW EY D' FIXELS 

61234 4А LD C, D 

61255 7U NXSFT LD А, H :ОМЕ FIXEL AT А TIME 

61236 D9 EXX 

61227 21ҒАЕЕ LD HL, WRSFC 

61240 07 AND А :CLEAR CARRY FOR ROTATION 

61241 СВ1Е NXBYT RR (HL) 

61243 2C INC L 

61244 3D DEC A 

61245 20FA JR NZ, NXBYT 

61247 D9 EXX іМЕХТ SHIFT 

61248 OD DEC C 

61249 ТОРО JR NZ, NXSHF 

61251 D9 EXX :GET ADDR OF NEXT IMAGE ROW TO HL 
61252 ER EX DE, HL 

61253 11F4EE LD DE, ИКЗРС 

61256 D? ЕХХ 

61257 44 LD B, H :XFER ROW OF H' COLUMNS ТО 
: IMAGE AREA 

61258 D9 NXBYT2 ЕХХ 

61259 1А LD А, (DE) 

61260 77 LD (HL), А 

61261 09 ADD HL, BC 

61262 12 INC DE 

61263 D9 ЕХХ 

61264 1ОРВ DJNZ NXBYT2 :LOOF BACK TO GENERATE THE 
: SAME ROW OF THE OTHER IMAGES 

61266 Di РОР DE 

61267 1D DEC Е 

61268 20D8 JR NZ, NXFOS 

61270 D9 ЕХХ 

61271 E1 РОР HL :FIND NEXT ROW OF IMAGE © 
61272 23 INC HL 

61272 D9 EXX 1RETRIEVE РЕ’ AND REFEAT FOR NEXT 
: ROW 

61274 рі РОР DE 

61275 20 DEC L 

61276 2ОСО JR NZ, NXROU9 

61278 D9 EXX :RETURN WITH CORRECT REGISTER SET 
61279 C9 RET 


The SFRINT Routine 


We now have to have a routine to send our data to the 


interrupt 
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buffer. That is the function of the SPRINT routine. This 
particular routine was designed with speed and versatility in 
mind. This is essential if we want a horizon and the move of 
sprites every TV frame. Time should take priority over 
compactness of code at all times. Although SFRINT does the work, 
you will not normally call it directly, as it will be subsidiary 
to a more general routine which follows it called SFRMV (SFRite 
MoVe), which will perform various manipulations of the motion 
data before jumping to SFRINT. 


The routine allows us to check for OR printing using the OR Map 
system described earlier. А slightly modified version of ORCHE 
has been built into SPRINT for speed but as usual will only Бе 
selected if Bit 7 of the sprite's attribute, stored in (IY+15), 
is set. Resetting the bit ignores the OR map and replaces 
whatever is in that character space with the new sprite image. 


We also need the routine ATTLOC which we outlined earlier in 
this book. 


As with SFREX, the prime registers are used again. SPRINT also 
assumes there is enough room in the interrupt buffer to hold all 
the characters and should thus not be called until an interrupt 
Clears the buffer if there is not room. Sending the data to the 
buffer again uses single register increments and if you have 
expanded the interrupt buffer beyond the 42 character mark you 
again have to make corrections to these increments to get over 
the intervening page boundaries as was discussed earlier. 
Remember that CHSTRE holds the number of used entries іп the 
buffer, and BUFFPT points at the next free entry. Both are 
adjusted accordingly the routine. 


Since it is not desirable to be interrupted when only half a 
sprite has been sent to the buffer, the interrupts should be 
disabled while sending the characters. You cannot do this IF you 
are running the horizon generation. 


SPRINT copes beautifuly with sprites that "spill off" the edges 
of the screen, or even those that are not even on the screen. 
Only that part of the sprite in the text area of the screen will 
print. However, the width of this "sprite window" can be changed 
by changing the values of the instructions labeled LFTLM1, 
LFTLM2, RGTLM1 and RGTLM2, obviously standing for LeFT LiMit and 
RiGhT LiMit respectively. 


OBJECT: TO SEND SPRITE DATA TO THE INTERRUFT BUFFER. 


ENTRY: В = XP, C = YP, D = УС, Е = xC 
HL = ADDR OF IMAGE О 

ALL AS SETUP BY SPRMV 

EXIT: DE = О 

DESTROYS: A'F^B'C'D'E'H'L' 


61280 DS SPRINT FUSH DE 
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61281 
61282 
61283 
61285 
61288 
61291 
61292 
61294 
61295 


78 

A7 
2809 
FDSEOD 
FDS60E 
19 
1OFD 
09 

С1 


:ОР SPRITE 


61296 
61297 
61500 
61505 
61204 
61507 
61310 
61312 
61514 
61315 
61318 
61519 
61:20 
6122 

61222 
61522 
61325 
61327 
6152 

61550 
6152 

61552 
61555 
61555 
61338 
61229 
61242 
61545 


ES 
CD19F1 
FDSEOR 
D? 
FD6EOF 
FD6610 
CB7D 


0600 
21B1EC 
o9 
3a6EE8 
47 

0р9 


1ROTATE MASK 


61344 
61545 
61547 
61348 
61350 
61552 
61555 
61355 
61356 
61357 
61358 
61259 
61260 
61361 
61362 


Advanced 2068 Machine Code Vol. 1 Fage 185 


МХА 


FOSO 


NXTRT 


NROT1 


МХТХ 1 


LD А, В :1Е ХР = O LEAVE HL AT IMAGE O 

AND А 

JR 7, FOSO 

LD E, CIY*12) :FIND CORRECT IMAGE 

LD D, (1ү+14) 

ADD HL, DE 

DJNZ NXA 

ADD HL, BC :FIND CORRECT VERT FOSITION 

FOF BC :FIND LOCATION OF TOP-LEFT ATTR 


FUSH HL 

CALL ATTLOC 

LD E. CIY*11) :E COUNTS THE COLUMNS LEFT 
EXX :DECIDE ON OR OR OVER PRINTING 

LD L, (IY*15) 

LD H, (IY*16) 

BIT 7, L 


JP 7, SPRTNO 

LD А, B :0R PRINT SO FIND ADDR IN ОБМАР 
арр А, А 

ADD A, A 

LD в, A 

LD A, C 

SRA A 

SRA A 

SRA А 

ADD A, В 

EXX :ADD BASE ADDR OF ORMAP 

EX DE, HL 

LD C, A 

LD в, O 

LD HL, ОБМАР 

ADD HL, BC 

LD А, (CHSTRE) 

LD B. А 

EXX :HL' HOLDS LOCATION IN ORMAF SO 


OVER CORRECT CELL-BIT IN ORMAF 


LD A, С 
AND 7 

LD B, A 

LD A, 128 
JR Z, NROT1 
RRCA 

DJNZ NXTRT 
EXX :STORE MASK IN C" 
LD C, А 
ЕХХ 

LD а, С 


FOF BC :FOINT ВС AT IMAGE DATA 
PUSH HL 

EXX :5ТОКЕ ORMAF ADDR 

PUSH HL 
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- 
61363 D9 EXX 
61264 FDS60C LD D, (IY*12) ШЕТ D = DEPTH IN LINES 
61367 ЕЕ?О RGTLM1 СР 32 :IF PRINT POSN IS OUT OF  X-RAàNGE 
: THEN SKIF COLUMN 
61369 5071 JR NC, HOFCL1 
61371 FEOO ІЕТІ МІ СР O :SAME FOR TOO FAR LEFT 
61575 5860 JR C, HOPCL1 
61575 ов EX AF, АР’ :STORE COLUMN POSN IN А: 
61376 7C NXTY1 LD А, Н : IF PRINT FOSN BELOW TEXT THEN 
: END 
61377 FESB СР 91 
61379 5068 JR NC, OUT81 
61381 FESB СР ВӘ :1Е PRINT POSN ABOVE TEXT AREA 
: THEN SKIF THIS LINE OF SPRITE 
61585 DS PUSH DE 
61384 ЕВ EX DE, HL 
61385 282Ғ JR С. МРК1 
61587 D9 EXX :DECIDE WHETHER "OR" PRINT ON THIS 
s CELL IS NEEDED 
61388 79 LD A, С 
612589 Aó AND (HL) 
61390 CBBB RES 7, E 
61592 2802 JR Z, NOTORZ 
61394 CBFB SET 7, E :IF CELL OCCUFIED SET FLAG TO MEE 
:ОК PRINT — 
61596 79 NOTORZ LD A, С 
61397 B6 OR (HL) 
61398 77 LD (HD, ñ 
61399 D9 EXX 
61400 1A LD А, (HL) rSEND CHAR TO BUFFER 
61401 D9 EXX 
61402 АВ XOR E 
61403 А2 AND D 
61404 AB XOR E 
61405 04 INC B 
61406 D9 EXX 
61407 2А6СЕЗ LD HL, (BUFFPT) 
61410 07 RLCA 
61411 77 LD (HL), A 
61412 2C INC L 
61413 73 LD (HL), Е 
61414 2С INC L 
61415 72 LD (HL), D 
61416 2 INC L 
61417 7A LD A, D 
61418 E603 AND = 
61420 07 RLCA 
61421 07 . RLCA 
61422 07 RLCA 
61425 F640 OR 64 : ADD OFFSET «У; 
61425 77 LD (HL), А 
61426 2C INC L 
61427 71 LD (HL), C 
61428 2C INC L 
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61429 70 
61450 2C 
61451 226CEB 
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LD (HL), Б 
INC L 


LD (BUFFFT), HL 


61434 210800 МРК 1 LD HL, 8 : INC DATA POINTER TO NEXT CELL 
61437 09 ADD HL, ЕС 

61438 44 LD B, H 

61429 4D LD C. L 

61440 EB EX DE, HL 

61441 D1 РОР DE 

61442 15 DEC D : IF LINE COUNT O THEN NEXT COLUMN 
61445 2810 JR 7. ІМі6 

61445 р9 EXX :ELSE MOVE ORMAP POINT TO NEXT LINE 
61446 7D LD А, L 

61447 C604 ADD А, 4 

61449 6F LDL, A 

61450 D9 EXX :АМО MOVE ATTR FOINT TO NEXT LINE 
61451 7D LD А, L 

61452 C620 ADD А, 32 

61454 6F LD L, A 

61455 5ОАҒ JR NC, NXTY1 

61457 24 INC H 

61458 C3COEF JP NXTY1 :LOOP BACK FOR NEXT LINE OF 
: SPRITE 

61461 OB IN16 EX АР, АР’ : INCREASE COLUMN F'OSN 

61462 3C INC А 

61463 D9 EXX : GET ORMAF ADDR AND MOVE MASK TO 
: INC FOINTER IF NECESSARY 

61464 E1 РОР HL 

61465 CBO9 RRC C 

61467 3001 JR NC, NINC2 

61469 2C INC L 

61470 D9 NINC2 EXX 

61471 E1 РОР HL :FOINT HL АТ 1ST ATTR OF NEXT 
1 COLUMN 

61472 2С INC L . 

61475 1D DEC E :LOOP BACK FOR NEXT COLUMN 

61474 C2BOEF JF NZ, NXTX1 

61477 D9 EXX БЕТ NEW VALUE OF CHSTRE 

61478 78 LD ñ. E 

61479 326EE8 LD (CHSTRE), А 

61482 D9 EXX 

61483 C9 RET 

:JUMFS TO HERE TO OMIT ALL OR FART OF А COLUMN 

61484 ОВ HOFCL 1 EX AF, AF? 

61485 60 DUTS81 LD H. В :MOVE IMAGE FOINTER TO NEXT 
:SFRITE РОЗМ 

61486 69 LD L. C 

61487 010800 LD BC, 8 

61490 09 МХТВ1 ADD HL, BC 

61491 15 DEC D 

61492 20FC JR NZ, NXT81 

61494 44 LD B, H 

61495 4D LD C. L 

61496 18DB JR IN16 
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61498 79 SPRTNO LD А, C :THE SHORTER AND FASTER OVER 
1 PRINTING ROUTINE 

61499 C1 POP BC 

61500 D9 EXX : HOLD CHSTRE IN E 

61501 EDSB6EE8 LD DE, (CHSTRE) 

61505 D9 EXX 

61506 ES NXTX2 PUSH HL 

61507 FDS460C LD D, (IY*12) :1ЕТ D = DEFTH IN LINES 
61510 ҒЕ20 RGTLM2 СР 32 :IF PRINT POSN QUT ОҒ  X-RANGE 
: THEN SKIP COLUMN 

61512 3056 JR NC, HOPCL2 

61514 FEOO LFTLM2 СР O : SAME FOR LEFT SIDE 

61516 3852 JR C, HOPCL2 

61518 08 EX AF, АҒ” :STORE IN A 

61519 7С NXTY2 LD А, H : IF PRINT POSN BELOW TEXT AREA 
s THEN END 

61520 FESB CF 91 

61522 3040 JR NC, битва? 

61524 FES8 СР 88 :IF PRINT FOSN ABOVE TEXT AREA 
: THEN MISS THIS LINE 

61526 DS PUSH DE 

61327 EB EX DE, HL 

615280 3822 JR C, NPR2 

61550 1А LD А, (DE) :SEND CHARACTER TO BUFFER ^^ 
61551 D9 ЕХХ =. 
61532 Ар XOR L 

61555 А4 AND H 

61534 AD XOR L 

61555 1С INC E 

61556 09 ЕХХ 

61557 2АФСЕВ LD HL, (BUFFFT) 

61540 07 RLCA 

61541 77 LD (HL), ñ 

61542 2 INC L 

61543 72 LD (HL),E 

61544 2C INC L 

61545 72 LD (HL), D 

61546 2C INC L 

61547 7А LD A, D 

61548 E603 AND 3 

61550 07 RLCA 

61591 07 RLCA 

61552 07 RLCA 

61555 F640 OR 64: ADD OFFSET 

61555 77 LD (HL), A 

61556 2C INC L 

61557 71 LD (HL), С 

61558 2C INC L 

61559 70 LD (HL), B 

61560 2 INC L — 
61561 226СЕЗ LD (BUFFFT), HL 

61564 210800 LD HL, 8: INC DATA POINTER TO NEXT 

: CELL OF IMAGE 

61567 09 ADD HL. BC 
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61568 44 LD B, H 
61569 ар LD C, L 

61570 ЕВ EX DE, HL 

61571 Di FOF DE 

61572 15 DEC D :IF LINE COUNT IS © THEN NEXT 
: COLUMN 

61572 280A JR Z, IN17 

61575 7D LD A, L 

61576 C620 ADD А, 22 

61578 6F LDL, A 

61579 хост JR NC, NXTYZ 

61581 24 INC H 

61582 CZ4FFO JF NXTY2 

61585 08 IN17 EX AF, AF’ :INCREASE COLUMN FOSN 
61586 ZC INC A 

61587 E1 FOP HL 

61588 2C INC L 

61589 1D DEC E :LOOP BACK FOR NEXT COLUMN 
61590 C242FO JF NZ, NXTX2 

61593 D9 ЕХХ 

61594 7B LD А, Е 

61595 326ЕЕВ LD (CHSTRE), А 

61598 D9 EXX 

61599 C9 RET 

:JUMFS HERE TO OMIT ALL OR FART OF COLUMN 

61600 ов HOFCL.2 ЕХ AF, AF’ 

61601 60 QUT82 LD H, E :MOVE IMAGE FOINTER TO NEXT 
: SPRITE COLUMN 

61602 69 LD L, C 

61603 O10800 LD BC, 8 

61606 09 NXT82 ADD HL, EC 

61607 15 DEC D 

61608 20FC JR NZ, NXTBZ2 

61610 44 LD B, H 

61611 4D LD C. L 

61612 18EZ JR IN17 :JUMP БАСЫ INTO MAIN ROUTINE 


The Sprite Move Routine 


We now have routines to load a srite, expand it and send it to 
the interrupt buffer. These have been all chained together so 
all we have to do is call SFRINT which will be done with this 
routine which updates the values of ХР, ХС, ҮС and YF according 
to VX and VY which as yOu will recall are other variables in the 
movement table. It also sets up all the values needed Бу  SFRINT 
and the other routines. The only parameter required by SFRMV is 
the address of the motion table in IY. 


OBJECT: GENERAL FURFOSE SFRITE CONTROLLER 
ENTRY: IY = MOTION DATA TABLE ADDR 
NOTE: B'C'D'E'H'L*'A*F' DESTROYED 
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IY FRESERVED 


61614 505509 SFRMY 
61617 CO 

61618 FD7EOA 

61621 FD7709 

61624 FD6608 

61627 FD6EO7 

61650 FD7EOO 

61655 FDS8601 

61636 F2D3FO 

61639 FD8602 
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DEC (1Ү-9) :DEC CYCLE COUNT 

RET NZ 

LD А, (IY*10) 

LD (IY*9), A 

LD H, (IY*8) :LET HL = ADDR OF IMAGE о 
LD L, (IY*7) 

LD A, (IY*O) :ADD STEF TO ХЕ 

ADD А, (IY+1) 

JF F, NNEG1 

ADD А, (IY*2) :IF RESULT NEG THEN LET 


ХР = ХР + XMAX AND LET XC = XC - 1 


61642 FD3503 

61645 FDSEO3 

61648 СЗЕШРО 

61651 FD4602 NNEG1 
61654 B8 

61655 FDSEO3 

61658 3811 

61660 FD34Oz 

: ХМАХ 

6166: 90 

61664 08 

:sALLOW FOR BLANK 
61665 FD7EOC 

61668 O1F8FF 

61671 09 NXLIE 
61672 3D 

61673 C2E7FO 

61676 O8 

61677 FD7700 XDN 
61680 47 

61681 FD7EOA4 

61684 FD8605 

61687 Е206Е1 

61690 E607 

: MOD 8 

61692 AF 

61695 FDZ406 

61696 FD5606 

61699 С215Ғ1 

АМО DEC YC 

61702 FEOB NNEG2 
61704 FDS406 

61707 АҒ 

61708 3805 

61710 E607 

61712 FDZ506 

61715 FD7704 YDN 
61718 C360EF 


We also need the ATTLOC 


DEC (IY4Z) 

LD E, (IY+2Z) 

JF XDN :JUMP TO DEAL WITH Y 

LD В, (1Y+2) 

CP B IF ХР<ХМАХ THEN GO FOR Y 

LD E, (IY+Z) 

JR C, XDN 

INC (1Ү%2) :ELSE INC XC, LET XP = ХЕ - 


SUB E 


EX АҒ, AF’ :DEC HL BY 1 COLUMN TO 


и 
LD А, (IY*12) 

LD BC, #FFF8 : MINUS 8 

ADD HL, BC 

DEC А 

JF NZ, NXUE 

E АЕ, АЕ? 

LD (IY*O), А :STORE NEW VALUE OF XF 

LD B, А 

LD А, (IY*4) :ADD STEF ТО УР 

ADD А, (IY+5) 

JF Е, NNEG2 

AND 7 :IF RESULT NEG THEN LET УР = ҮР 


LD C, A 
INC (IY+6) :AND INC УС 

LD D, (1Y+6) | 

ӘР YDN :IF ҮР>7 THEN LET ҮР = УР - 8 


DEC (1+6) | 
LD (1+4), A У; 
ЈЕ SPRINT 


routine called for in SFRINT 
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61721 78 ATTLOC LD А, B 
61722 CB2F SRA Я 
61724 CB2F SRA ñ 
61726 CB2F SRA А 
61728 C658 ADD ñ. 88 
61730 67 LDH, А 
61751 78 LD à, В 
61752 E607 AND 7 
61754 OF RRCA 
61735 OF RRCA 
61756 OF RRCA 
61737 81 ADD à, C 
61738 6F LDL, А 
61739 C9 RET 


To summarize: 7 bytes of the 17 in the motion table are 
initalized by the routines FADOUT and SFREX. The variables we 
have to initalize ourselves are XF, XC, YF and YC. Remember that 
XP is measured to the right and YP upwards from the bottom left 
corner of the sprite, while XC is measured to the right of and 
YC downwards from, the top left corner of the screen. ХС and YC 
also are the coordinates of the top left corner of the sprite. 


Speeds VX and VY are measured in the same directions аз ХР and 
YF, and may be greater than, less than or equal to O. If Ух 
then movement is to the right, while if VXzO then it is to the 
left. Similarly VY>0O is upward movement, while VY< О is 
downward. Thus having movement in both XP and YP causes diagonal 
motion. If the absolute values of VX and VY are not equal the 
sprite will move in off diagonal directions. Thus you can move 
sprites any which way you like at any speed you like. 


The cycle count is provided as a means for regulating the 
frequency at which the sprites move, and also whether two or 
more sprites move in phase with each other. 


For example, suppose that we have two sprites, with motion data 
at labels MDAT1 and MDAT2, and that we want one sprite to move 
every 5 TV frames, and the second to move once in every i 
frames. We set the respective "cycle periods" to values of 5 
and 2, and as usual initalize the "cycle counts" to 1. so that 
both sprites will move on the first call of SFRMV. А11 that we 
then have to do is: 


LD IY, МОАТ! 
CALL SFRMV 
LD IY, MDAT2 
CALL SFRMV 


after each interrupt. 


If we have two sprints moving at the same frequency, and we wish 
to keep them "out of phase", perhaps because there isn't enough 
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room in the interrupt buffer to animate them both in the same TV 
frame, then we use different initializations of the cycle count. 
If we give both these sprites a cycle period of 2, then we сап 
make them move on alternate TV frames by setting the first count 
to 1, and the Znd count to 2. Whatever happens, the cycle period 
and cycle count must always be non-zero. If zero we get a 
movement once in every 256 calls of SFRMV. 


Using the concepts of cycle count and cycle period, ме сап 
animate all the sprites involved in a program in one block. If 
we place all their motion data consecutively in memory, then а 


suitable fragment after each interrupt might be as follows: 


LD IY, MDAT 

LD B, (NUMBER OF SPRITES) 
NXTSFRT FUSH ЕС 

CALL SPRMV 


РОР ВС 
LD DE, 17 
ADD IY, DE 


DJNZ NXSFRT 


Also note that the adress of the first byte of image © is stored 
at (IY*7). This value is also returned in HL after the call жо 
PADOUT to set up the sprite data. We can use this entry іп the 
motion data as a means Of switching or cycling through different 
sets of images for any one sprite. For example, you may wish to 
make your character "walk" rather than glide, or perhaps make 
your spacecraft gradually disintegrate in flight after being hit 
by a particular nasty plasma gun shot. To realize this function, 
set up as many different sets of sprite data as you need, 
storing the values returned by PADOUT in your own look-up table. 
IY should be kept pointing at one set of motion data, which will 
obviously then be set up with the last set of sprite data 
generated. Then when you are running your program, use ап 
"animation count" and "animation period" analogous to the "cycle 
count" and "cycle period" to step through the different sets of 
images, retrieving the appropriate address from your look-up 
table and inserting it at (IY+7) every time you want to switch 
data. 


There are various other manipulations of the motion data that 
are possible. You could make the sprite move in a preprogrammed 
pattern by running through a table of values for VX and VY. оғ 
you could make the sprite do a "chameleon" act by changing the 
attribute byte at (ІҮ+15) but remember to preserve bit 7, the OR 
print flag. The опе thing that can't be done is have a sprite 


Mn 


in 2 or more colors. 


Я Sprite Demo--TEST 


To demonstrate the sprite movement programs we will temporarily 


еді 
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abandon our horizon and gunsight program and instead we will 
move a red telephone (РАРЕК = 8) and a cyan card in Opposite 
directions, reversing the directions several times and having 
them move over each other. This is done without the horizon 
generator as we have to expand the interrupt buffer out to 40 
characters to accomodate the 4 x 2 phone and the 3 x 4 card. 
This actually takes 5 x 4 and 4 х 5 print positions which adds 
up to the full 4O positions of the expanded interrupt buffer. 
For the smoothest animation. we will move them one pixel at a 
time each and every TV frame. 


Using the formula: В(а(т+1) +1) (n*1) for calculating the space 
necessary for the images, for these 2 sprites we will need: 


TELSFC = В(В(4+1) +1) (3+1) 
CARSPC = 8(8(241)41) (4+1) 
DEFW 0,0,0,0 


1512 bytes 
1520 bytes 


Remember that we need an extra 6 bytes at the end of the last 
table. 


The horizontal speed will be VX - 1, the maximum value of XF = 
7, and the distance between two successive images will be D = 1 
pixel. Hence the width of the safety margin to the right of our 
shapes will be: 


Ph = D(VX *XF) - B = 1(1 + 7) - 8 = Û 
SQ we can use the whole space of 4x 3 and =x 4 fully. Since 
the sprites will not be moved vertically, no upper safety margin 
is necessary. Our actual pixel data for the phone and the card 
are held іп TELDAT and CARDAT respectively. 


We start with the phone and card motion tables: 


61740 OOO100FC TELMTN DEFB 0,1,0,252 
61744 00000900 DEFB 0,0,9,0 
61748 00010100 DEFB 0,1,1,0 
61752 0000008258 DEFB 0,0,0,120,56 
61757 OOFFOOZ0 CARMTN DEFE 0,255,0,22 
61761 0000090000 DEFB 0,0,9,0,0 
61766 01010000 DEFE 1,1,0,0 
61770 00008528 DEFB 0,0,122,56 


То operate the OR printing function, we must make sure that the 
ОКМАР is cleared with CLOR (which we already have) before each 
complete set of sprite movements is started. 1+ we fail to do 
this, the new image Of a sprite would print on top of its old 
image, causing an undesirable trail across the screen. 


61774 D9 TEST EXX 

61779 ES FUSH HL 

61776 D9 EXX 

61777 АР ХОК А :SET ZERO HORIZON, ВК SKY % SEA 


61778 5205Е9 LD (ROWS+1), A 
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61781 
61784 
61787 
61790 
61793 
61796 
61800 
61803 
61805 
61808 
61811 
61814 
61817 
61821 
61824 
61826 
61829 
61832 
t MOVE 
61855 
61834 
61836 
61838 
61841 
61845 
61848 
61852 
61855 
61856 
61857 
61859 
: X 

61862 
61865 
61867 
61870 
61871 
61875 


327 BE8 
5251Е9 
21АОЕ2 
11E8F1 
010304 
FD212CF1 
CD96EE 
1601 
CDOS8EF 
21COF7 
1118F2 
010403 
FD213DF 1 
CD96EE 
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LD (TOPBRD+1), A 
LD (BOTBRD*1), A 

LD HL, TELSFC :GENERATE FHONE SPRITE 
LD DE, TELDAT 

LD BC, #0403 :4 X Z SIZE 

LD IY, TELMTN 

CALL FADOUT 

LD D, 1:SPEED 

CALL SPREX 

LD HL, CAKSFC :SAME FOR CARD 

LD DE, CARDAT 

LD BC, #0204 : 2 X 4 SIZE 

LD IY, CARMTN 

CALL FADOUT 

LD D, 1: SPEED 

CALL SPREX 
CALL INT1 
HALT 


: INITIALIZE INTERRUPT HANDLER 


SPRITES BACK AND FORTH 1 PIXEL АТ А TIME PER TV FRAME 


OEO2 
обоо 

CS 
CD11ED 
FD212CF1 
CDAEFO 
FD213DF1 
CDAEFO 


Ер44 


: RETRIEVE HL 


61876 D9 
61877 E1 
61878 D9 
61879 C9 


SPRITE PIXEL DATA 


61880 
61884 
61888 
61892 
61896 
61900 
61904 
61908 
61912 


FFFEFEFC 
78200103 
0307070F 
1FZF7F7F 
7ЕЗЕЗҒОЕ 
FFFFFFFF 
FO606060 
FFFFFBFZ 


NXAM2 
NXAM 


LD C, 2: 
LD B, O 
PUSH BC 
CALL CLOR 
LD IY, TELMTN :MOVE & PRINT PHONE 
CALL SPRMV 

LD IY, CARMTN :MAVE & PRINT CARD 
CALL SPRMV 

POF BC 

HALT 

DJNZ NXAM :NEXT FRAME 
LD А, (IY*1) :REVERSE 


ONCE BACK AND FORTH ACROSS 


DIRECTION ALONG 


LD (IY-16), А 

NEG 

LD (1+1), А 

DEC C :NEXT PASS 

JR NZ, NXAMZ2 
CALL DISINT :RESET TO IM 1 AND 

EXX 

FOF HL 

EXX 

RET 


(2 lines per character space) 
OF1FSF7F TELDAT 


DEFE 15,21,63,.127 
DEFE 255,254,254,255 
DEFB 120,48,1,7 

DEFB 3,7,7, 15 

DEFE Z1,62,127,127 
DEFB 127,62,62,15 
DEFE 255, 255, 255, 255 
DEFB 240,96,96,96 


DEFE 255, 255,248, 243 
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61916 E7CFDE9C DEFE 251,207,222,156 
61920 9CDECFE7 DEFB 156,222,207,221 
61924 FZF8FFFF DEFE 242,248,255,255 
61928 FFFFFFFF DEFR 255,255,255,255 
61922 OFO606506 DEFE 15,6.6.6 

691926 FFFFiFCF DEFB 255,255,21,207 
61940 E7FZ7BZ9 DEFE 221,242,122,57 
61944 397BF3E1 DEFE 57,123,243,221 
61948 СЕ1РЕЕЕЕ DEFE 206,21,255,255 
61952 FOFSFCFE DEFB 240,248,252,254 
61956 FF7F7F3F DEFB 255,127,127,62 
61960 1ЕОСВОСО DEFB 30,12,128,192 
61964 COEOEOFO DEFB 192,224,224,240 
61968 F8FCFEFE DEFE 248,255,254, 254 
61972 FEFCFCFO DEFE 254, 252,253,240 
61976 3F60D8A0 CARDAT DEFB 63,96, 214, 160 
61980 B9ABR985 DEFE 185,171, 185, 155 
61984 8F858180 DEFB 145,155, 129, 128 
61988 81878185 DEFB 129,121,129,123 
61992 8F858180 DEFE 145,155, 129, 128 
61996 81858585 DEFE 129,155, 145,155 
62000 81858180 DEFB 129,131,129,128 
62004 ВОСОФОСЕ DEFE 128,192, 96,63 
62008 FFOOO0000 DEFB 255,0,0,0 

62012 00810042 DEFB 0,129,0,66 
62016 E7420000 DEFER 221,66,0,0 
62020 00810042 DEFE 0,129,0,66 
62024 E7420000 DEFB 251,66,0,0 
62028 0042b742 DEFE O,66,221,66 
62032 00810000 DEFB 0,128,0,0 

62036 OOOOO00FF DEFE 0,0,0, 255 

62040 FCO60301 DEFB 252,6,2,1 

62044 B1C181A41 DEFE 129,193,129,161 
62048 F1A18101 DEFB 241,161,129,1 
62052 B1C18141 DEFE 129,193,129,161 
62056 F1A18101 DEFB 241,161, 129, 1 
62060 8161F141 DEFE 129,161,241,161 
62064 81DD951D DEFB 129,221,149,29 
62068 ОЗ1ВОФЕС DEFE 5,27,6.253 

: IMAGE AREA FOR EXFANDED SPRITES 

62072-62111 DEFS 40 

62112-63423 TELSFC DEFS 1312 
62424-64743 CARSFC DEFS 1220 
64744-64751 DEFW O,0,0,0 


As you can see most of the space really is taken up by the 
expanded image tables for the two sprites--2640 bytes. You chew 
up quite a bit of memory expanding a few sprites fully and may 
run out of memory if you want them to move one image at a time. 
Remember that if you move 2 pixels at a time. your memory 
requirement gets cut almost in half. 


These programs effectively fill all the space between 59500 and 
top of memory although we still have about 200 bytes left. I 
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originally organized this code to start at address 60000 but had 
to move it down to 59500. I decided that a phone and а сага 
weren't really a good demonstration of sprites so wrote another 
little program that "puts it all together" which just fits in 
the remaining space with the aid of a shoehorn--I had to leave 
out a few not really necessary segments to do it. 


However, to get back to the SPRITE demo at hand.  Assemble the 
present code and make another save of the source and object 
code. 


We also have to add and change some lines in the MASTDEMO 
program as well. Change line 80 to read: 


ВО PAPER 7: GOSUB 200: POKE 59500,16: POKE 59520,16: POKE 
59806,16: POKE 59890,40: POKE 60280,40: REM SET CHAR TO 40 


А11 these POKES are to reset the length of the INTERRUFT  BUFFER 
to accept 4O characters. The paper change is necessary to make 
sure we don't have red or cyan paper from other portions of the 
program. 


Now add the following lines: 
82 CLS : RANDOMIZE USR 59400 


84 POKE 59500,112: POKE 59520,112: FOKE 59806,112: POKE 59890, 
24: POKE 60280,24 :REM RESET CHAR PRINT TO 24 


85 POKE 59515,5 1: РОКЕ 59697, 1 
86 RETURN 


Resave MASTDEMO and run the program, this time selecting Menu 
Item # 4. Was it worth the effort? 


Actually the horizon generator was running through all this but 
was set to make no changes in the program having a black border 
in both sea and sky. As I said, not a good demo of everything 
you can do. So now let's... 


PUT IT ALL TOGETHER--SHIFS 


That's right, a moving horizon, a set gunsight апа a couple of 
ships going by on the horizon all at the same time. And all in 
just an additional 269 bytes. 


In case you were wondering, you design the ships and other 
sprites in basic using as many UDG characters as you need to get 
them just right. Even if you have big sprites, 21 characters 
should be sufficient to do at least one at a time, 


— 


ML 
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I decided that since the ships are on the horizon they could be 
quite small so a destroyer took хі and an aircraft carrier took 
7х1 spaces. Using the formulas given earlier and deciding that 
they would move 1 pixel space at a time, the amount of space 
needed for these 2 sprites would fit into the expanded sprite 
space already used by the TELSFC and the CARSFC. Since the 
SPRITE program regenerates these each and every time, we can use 
this same space for our aircraft carrier and destroyer respec- 
tively. Granted, that these sprites don’t use all the space but 
sO what. We at least don’t have to assign new space. We do have 
another problem. Ships have a bow and astern and usually are 
not seen moving backwards in the open sea. We just can’t reverse 
directions as we did for the phone and card and make them кип 
backwards. One would have to design a second sprite to reverse 
images of this nature going in the opposite direction. Keep this 
in mind when you design your game. AT X and 7 characters, our 
new sprite data will take 80 bytes of our precious space. 


We will also need new motion tables of 17 bytes each for the 2 
ships for another 24 bytes. We will want to start the Aircraft 
carrier completely off the left side. To do this we designate 
its XC value at 248 (minus 7). We will only want it to move at 
a slow rate of 1 pixel every 3 frames, so we designate its Cycle 
period as 3. And it will be done in white ink with OR printing 
so its ATTR BYTE is 12847 = 125 with an attribute mask of 56. 
The destroyer will start off screen on the right so it has a ХС 
= Z2. We want it to move one pixel per frame so use a cycle 
period of 1 with the same attribute and mask as the aircraft 
carrier. Both will be on line 9 which is just above the center 
of the center of the gunsight. 


Now all we have to do is combine the code of TARGET with that of 
TEST. Here is where the shoe-horning came in. The combination 
was a bit too much for the remaining space. So 1 had to ask, 
what can I leave out? I decided that a value of 1 for horizon up 
and down motion would be all that was necessary so omitted that. 
I still needed more space so decided to omit the Saving of HL” 
which is only 6 bytes but it was just enough so I put it into 
the entry code where I had more space. You can bend machine code 
rules but you can't break them. 


Now, we need 13 bytes of interrupt buffer for the gunsight, C3 
+ 1)Ж(1 + 1) = B for the destroyer, and (7 + 1) ж(1 + 1) = 16 for 
the aircraft carrier, or a grand total of 27 bytes. This is more 
than the 24 that American style TV's will allow so we have to 
compromise the horizon and not allow it to go all the way to the 
top of the screen. This would be no problem for our sub unless 
we were simulating a "dive" or a "surface" while looking through 
the periscope. We will show you how to do this from Basic as 
there also was not enough room to do this in code as well. 


бо without further ado: 


64752 QOO100F8 AIRMTN DEFE 0,1,0,248 


Fage 198 Advanced 2068 Machine Code Vol. 1 Chapter 7 


64756 00000900 DEFB 0,0,9,0 

64760 00010200 DEFE 0,1,2,0 

64764 0000008758 DEFB 0,0,0,125,56 

64769 OOFFOO2O0 DESMTN DEFE 0,255,0,22 

64773 00000900 DEFB 0,0,9,0 

64777 00010100 DEFB 0,1,1,0 

64781 0000008738 DEFB 0,0,0,125,56 

64786 CDDEE9 SHIFS CALL ІМТІ: SET UF INTERRUFT BUFFER 
64789 F3 DI 

64790 ОЕБВ LD C, 88: SET HORIZON LEVEL 
64792 CD24EA CALL HRZST2 

64795 OEOD LD А, 13 : SET УР GUNSIGHT SPACE 
64797 CD6DEB CALL ALTRBF 

64800 EB EX DE, HL 

64801 212FEC LD HL, TRGPOS 

64804 0149ЕС LD BC, TRGDAT 

64807 E30D LD A, 13 

64809 CDASER CALL SRVR2 

64812 21807F LD HL, #7Е80: ATTR AND MASK 
64815 2292ED LD (ATT), HL 

64818 21A0F2 LD HL, TELSPC: EXPAND CARRIER SPRITE 
64821 11C5FD LD DE, AIRDAT 

64824 010107 LD BC, #0701: LENGTH AND WIDTH 
64827 FD21FOFC LD IY. AIRMTN 

64831 CD96EE CALL PADOUT 

54854 1601 LD D,1 

64836 CDOBEF CALL SPREX 

64829 21COF7 LD HL, CARSPC: NOW THE DESTROYER 
64842 11ADFD LD DE, DESDAT 

64845 010103 LD ВС, #0501: LENGTH AND WIDTH 
64848 FD2101FD LD IY, DESMTN 

64852 CD96EE CALL FADOUT 

64855 1601 LD D, 1 

64857 CDOBEE CALL ЗРАЕХ 

64860 FB EI 

64861 01С005 LD BC, 960: TIME TO MOVE CARRIER ACROSS 
:SCREEN = 3%256+5%8% (7+1) 

64864 С5 NXAMA FUSH EC 

64865 CDSCEB CALL SRVR1: RESET GUNSIGHT 

64868 76 | HALT 

64869 CD11ED CALL CLOR 

64872 FD21FOFC LD IY, AIRMTN: CHECK CARRIER MOVE 
64876 CDAEFO CALL SPRMV 

64879 FD2101FD LD IY, DESMTN: NOW DESTROYER 
64883 CDAEFO CALL SPRMV 

64886 ZEFE LD A, 254: CHECK HORIZ MOVE 
64888 DBFE IN А, (254) 

64890 2F CFL 

64891 E61F AND 21 

64893 2802 JR 7, NDZ 

64895 CBD1 SET 2, C : 


64897 ЗЕ?Ғ ND3 LD А, 127 


^ 
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64899 DEFE IN A. (254) 

64901 2F CFL 

64902 ЕСІР AND 21 

64904 2802 JR Z. NUS 

64906 CEDO SET 2, C 

64908 79 NUS LD A, C 

64909 S269EA LD (CNTRL), A 

: CHECK FOR HORIZON SFEED WOULD ВЕ INSERTED HERE IF ROOM 
64912 CDDBEA CALL HRNNMK 

64915 ЗЕ7Е LD А, 127: CHECK FOR BREAK 
64917 DBFE IN A, (254) 

64919 1Е RRA 

64920 C1 FOF BC: IN CASE OF BREAK FOF ВС FIRST 
64921 3005 JR NC, ENDS 

64925 OB DEC BC: ADJUST COUNTER 
64924 78 LD A, B 

64925 B1 ОЕ С 

64926 20CO JR NZ, МХАМ4 

64928 CDFEE9 ENDS CALL DISINT 

64951 3A6AEB LD А, (ROLNTH) 

64934 ED44 NEG 

64956 АҒ LD C, А 

64927 CD6DEB CALL ALTREF 

64940 C9 RET 

64941 01010303 DESDAT DEFB 1,1,2,2 

64945 ZDOFFF7F DEFB 61,15,255,127 
64949 OOO02029F DEFE 0,2,2,159 

649523 FFS6FFFF DEFB' 255,86, 255,255 
64957 00000000 DEFER 0,0,0,0 

64961 DEFSFFFE DEFB 222,248, 255, 254 
64965 00000000 AIRDAT DEFE 0,0,0,0 

64969 FFO71FOF DEFB 255,7,31, 15 
64972 ОООООООО DEFB 0,0,0,0 

64977 FF99FFFF DEFB 255,153,255, 255 
64981 00000000 РЕРВ 0,0,0,0 

64985 FF99FFFF DEFB 255,152,255, 255 
64989 О2=Е1Е1Е DEFE 2,632,230, 30 
6499.5 FF99FFFF DEFB 255,153,255, 255 
64997 00000001 DEFE 0,0,0,1 

65001 FF99FFFF DEFB.255,155,.,295.255 
65005 ООООЕОВО DEFE 0,0,224,128 
65009 FF99FFFF РЕЕВ 255.152,255,255 
69015 Ooooooooo DEFE 0,0,0,0 

65017 FF9OFDFS8 DEFB 255,144,252,248 


LAST BYTE USED 65020 

It just fits! Assemble and save both source and object code for 
the last time. Hy this time the object code should have reached 
5521 bytes. 


We now have some things to add to the basic program to make this 
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program work. While we are at it we will also correct some other 
things missing in the earlier demos of the horizon as well. 


Add the following lines: 


12 PRINT AT 15,4; "5. SHIF DEMO": АТ 15,4; "6. BORDER QUILT 
DEMO"; АТ 17,4; "7. GIANT M DEMO"; AT 19,4; "8. COUNTDOWN DEMO" 


The first part of the line only is needed but you might as well 
add the rest while entering the line as they are the 2 demo’s 
for the next section. 


We also have to modify line 13 and 20 to read: 


15 PRINT °° TAB 4; "9. END" 
20 IF INKEYS < "1" OR ІМКЕҮ% > "9" THEN GO TO 15 


We need the same FOKEs that we used to expand the interrupt 
buffer to 40 bytes that we used in line 80 at line 90. We also 
need the POKEs to get it back to 24 bytes so line 94 becomes 
identical to line 84 and I hope you know how to do that the fast 
way without having to type in the whole line in each case. 


We now have to do some modifying of the buffer wait periods as 
we are printing too long a time and our horizon will be too low. 
These are the values at 64655 and 59678. Go back to the original 
discussion of this code to do it for your TV or monitor as it 
may be different than mine. For mine the following values 
worked: 


92 FOKE 59655,28: POKE 59678,14: FOKE 60008,1: PAPER 5: CLS: 
RANDOMIZE USR 59428: REM Adjust timing 


94 РОКЕ 64655.2: РОКЕ 59678, 9: GOSUB 400: RETURN 
Line 94 resets values back to what they were before we started. 


There are a few things in those lines I didn't explain. The РОКЕ 
at 60008 is necessary as we didn't adjust the SFEED of the 
Horizon move. It doesn't work so well with a zero. This makes 
the code we omitted work. 


РАРЕК 5 is merely to get the whole screen to CYAN from whatever 
color the last demo was. 


Because we jumped out of the code when we were done, the values 
Of AIRMTN and DESMTN are whatever they ended up as. Тһе 
SUBROUTINE at 400 merely resets them to their original values. 
This was not necessary in the phone-card demo because that 
program just conveniently left them where they originated when 
it finished. This also is the easy way to play around with 
different speeds and placement of the sprites. А11 you have to 
do is adjust the right data byte of line 405 and do a GOSUR 400 
before calling the menu with a GOTO 10 and rerunning the  SHIF 


Nd 
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DEMO. 

400 RESTORE 400: For X = 64752 TO 64785: READ y: FOKE х,у: NEXT 
x: RETURN 

405 DATA 0,1,0,248,0,0,9,0,0,1,2,0,0,0,0,125,56,0, 255, 0, 22.0.0, 


9,0,0.1,1,0,0,0,0,125, 56 


We now have to write the entry code to the demo to be put аж 
59428. Remember that this code must save both the HL and HL? 
registers. But we had another problem with the horizon demo when 
we ran it. The problem was that the whole screen was CYAN until 
we ran the border up and down to do it. So how about a little 
routine to change the attributes below our starting point of the 
horizon with blue paper and white ink. This whole section of 
code would read: (everything in decimal this time as it is going 
to be added to data line 205: 


59428 22 FUSH HL 

59429 217 ЕХХ 

59450 22 FUSH HL: SAVE HL* 

59451 217 EXX: ВАСК TO STANDARD REGISTERS 
59452 33,96,89 LD HL, 22880 

59425 17.97.89 LD DE, 22881 

59458 1,159,1 LD BC, 415 

$9441 62,15 LD 6,19 : BLUE РАРЕК, WHITE INK 
59445 119 LD (HL), A 

59444 237,176 LDIR 

59446 205,18,253 CALL 64786: SHIPS 

29449 217 ЕХХ 

59450 225 РОР HL 

59451 217 ЕХХ 

99452 258 РОР HL 

59455 201 RET 


All we have to do is the change the end of the loop in line 202 
to 59453 and add the numbers above to the end of data line 205. 


We should also change line 120 to read RETURN and add 120 STOF. 


The first time through the program just sit and watch and don't 
change the horizon. The second time use the bottom row left for 
"down" and the bottom row right for "up" to verify that the 
horizon works as the program runs. The problem is that you run 
the horizon down below the bottom of the ships or up wey too 
high. One could rewrite the routine so that the code itself 
moves the horizon up one pixel line and then back down again to 
simulate waves rather than trying to do it manually. We leave 
that up to the student as it has to be located somewhere else. 
Remember that moving the horizon every frame is too fast for the 
eye to register. You need something slower. 


There you have it, horizon, ships and gunsight. Now all that is 
left is to do the torpedoes. This ends our discussion of hori- 
zons and sprites. I hope that you found it worth your while. 
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| А 
Before going on with the next section which will also һе 
included in MASTDEMO, we will finish up our paperwork properly. 
You might find this table useful in trouble-shooting your code. 
It's quite easy to check as I have done it backwards a line at 
a time as it appears in Zeus. 
TABLE OF HORIZON-SFRITE ROUTINES 
ENDS ғрао NUS FD8C NDA FD81 
NXAMA FD6O DESDAT FDAD AIRDAT FDCS 
SHIFS FD12 NXAM F18D NXAMZ F 18E 
CARDAT F218 CARSFC F7CO TELDAT F1B8 
TELSFC 2A0 TEST F14E CARMTN F13D 
TELMTN F12C YDN F113 NNEG2 Е106 
NXUB FOE7 NXD FOED NNEG1 FODZ 
SPRMV FOAE NXT82 FOAS IN17 Е091 
NFR? ЕО?С DUT82 FOAL NXTY2 FO4F 
LFTLM2 FO4A HOF'CL2 FOAQ RGTLM2 Е046 
NXTX2 FO42 NXTB1 FOZ? NINCZ FOIE 
IN16 F015 NOTORZ EFD4 NFR 1 EFFA V 
DUTB1 FO2D NXTY1 EFCO LFTLM EFBE 
HOFCL. 1 FO2C RGTLM1 EFR7 NXTX1 EF EHO 
NXTRT EFA8 NROT 1 ЕҒАВ SFRTNO РОЗА 
ATTLOC Е119 МХА ЕҒЫБ FOSO EF SE 
SFRINT ЕК6О NXREYTZ EF4A NXBYT ЕР 
NXSHF EF33 NXFOS EF2E NXBYTS EFZ6 
NXROW9 EF1E SURDIV EFOC SFREX ЕҒОВ 
WESFC EEF4 MUL 1 EEDC NXSCOL EER9 
CL EEEE FADOUT EE96 NXTDRZ ЕЕ7О 
NXTDR1 EESD CLS ЕЕЗ MOIRE ЕЕЗВ 
STEF EE29 VERHOR EE24 DIAG EEIC 
NXTSTF EE135 ВЕС EEOD Y2Y1 EDFA 
YZX1 EDF1 DRAW EDE i УНЕТЕ EDDF 
DIASTF EDDD INV1 EDDE QVER1 EDDS 
FLOOF EDC7 FLOT ED9Z FF LAG ED94 
MASE ED93 GO Ере FWAIT ED6O 
FLACE EDSD HIFRINT EDSO CHARS EDAE 
NOTOR ED47 МХТЕОТ ED28 ATCC ED4C 
af E - й О О y ` 4 
ORCHE EDIE CLOR ED11 ORMAF ECE1 — 
NUZ ЕСО9 NDZ ERFE TSLF ЕБЕҒ 


TRGDAT ЕС49 TRGFOS ECZF TARGET ЕЕСЕ 
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NXCHR9 EBAA SRVR2 ЕНАФ NXSRV1 EB? 
АТТ ED? 1 SRVR1 EBBC BLNE: EB84 
HOPFL ЕВВВ ALTRBF EBSD КОБЕРТ EBOR 
ROLNTH EB6A RRZCOL EBSA NU1 EBiD 
ND1 EB12 DMLF ERBO4 DEMO EAFC 
HRZNME EADB HCOLS EAC7 NROWZ2 EAC? 
ОРІМІТ EAC? HCOLS EAAQ SELF42 EA9E 
ROWZ 1 EAIC NROWZ 1 EA94 UPS EAAS 
RZSMV1 EA6A CNTRL EA69 HRZSFD EA68 
NOWRE EASD HRZSTZ ЕА24 HRZST1 ЕАОВ 
HRZN4 EAQS HRZN2 EAO7 HRZN1 EAQS 
DISINT E9FE TBLP E9EC INTI E?DE 
SELF11 E9CA HCOL 4 E9R7 SELF4 E9RBO 
NOFLG E9BB NXTFL E9A4 INIT2 E999 
END Е9АВ ІМІТЗ Е991 HCOL 3 Е941 
HCOL2 Е955 HCOL 1 E933 BÜTBRD E930 
HRZN3 E923 SELFS E91F LN E914 
SCAN1 E912 GO41T E91D WT1LN Е9С2 
NOWAIT EFCC Y E902 22 EBEB 
ROWS E904 FOR E893 NTOR E8C3 
FAKE EBF2 NXTCH E882 TOF BRD EB7A 
INTERP E870 BORD ES86F CHSTRE ES6E 
BUF FFT EBéC BUFFER FF70 


Writing your own routines: Wanting to use the base programs in 
your own routines is quite simple for those of you who have 


entered all the code in Zeus and saved the source code. You 
merely have to remove all the demo programs, reassemble without 
them and then write your own routines to run what you want. The 


actual programs that do nothing but demonstrate the routines and 
their locations and lengths are: 


DEMO 60156-60217 
TARGET 60366-60488 
MOIRE 60987-61058 
TELMTN-CARMTN 61740-61773 
TEST 61774-64751 
SHIFS 64752-65020 


If you don't need to plot lines the following can also go: 


FLOT 60820-60892 
DIASTF 60893-60986 


This could be a whopping 3538 to 5652 bytes which would leave а 
kernel of only 1889 bytes. However, all is not lost for those of 
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you with disk who didn't go through all the hard work (7) оғ 
assembling and debugging codes. Тһе two big routines are on the 
end and can easily be overwritten between addresses 61774 and 
65020 for a recovery of 2247 bytes. The entry routines at 59400 
also can go. 


All these routines are together as one code save. You may want 
to add what follows or decide to omit it altogether in your 
programs. They do demonstrate other things that can be done. 


WRITING TO THE BORDER 


Well we can't quite do that! The only thing we can do is make 
the border various colored attributes by changing the border 
ettribute while it is being written. However, ме can produce 
full screen images that extend into the border area as long as 
we design in large sized chunks. 


If you thought time was at a premium doing the horizon, imagine 
how much more of a premium it must be if we want to change 
colors in the top and bottom borders as they are being written 
to the screen. Going all Out, we won't be able to switch border 
colors fast enough to make each character width а different 
color. The best we can do is to manage a switch every 4 
characters wide. That will allow us to get 9 different colors 
into a border line. The fastest instruction to write to FORT 254 
(which is what we have to do to switch border colors) is the 
QUTI instruction. 


We will be using a simpler Interrupt Initialization routine as 
well. For this we use a set of codes we will assemble to address 
28000. We will not use all that space. 


We will also use a simpler Interrupt  Initalization routine as 
well: 


ORG 58000 
DISF 55556 : WILL ASSEMBLE АТ 48000 

EXIT: BC = O, DE = #FFO1, HL = FFO1 

58000 ЗЕРЕ HIRON LD А, 254 

58002 ED47 LD I, ñ 

58004 010001 LD EC, #100 

58007 67 LD H, A 

58008 69 LD L, C 

58009 57 LD D. A 

58010 58 LD, Е, В 

S8011 36FD LD (HL), 252 

58013 EDBO LDIR 

58015 EDS IM 2 

58017 C9 RET 


The OUTI instruction works like this. The HL pair holds the 


s 
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address of the data byte. the C register the low 


port 


execution, the B register is decremented, the 
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byte of the 
byte. In every 
port address is 


address and the B address the high 


formed, the data byte at HL is sent out to the port, and HL is 
incremented. If В reaches zero the zero flag is set, if not, it 
is reset. It takes 16 T-states to run one cycle. 


Well, 


should be able to get 224/16 = 14 into a line. Not quite. 
64 T-states out of the 224 states is spent in flyback, 
the actual time of writing closer to 10. Our 


if it takes 224 T-states to then we 
About 
reducing 


handler 


write a ТУ line, 


interrupt 


needs two variables: 

FICDAT contains the address of the data to write. 

BORSTR the string of data being written which is organized 

as: ist BYTE = # of lines. 
Next 10 BYTES: the colors desired across the border. 

58018 ОООО FICDAT DEFW О 
58020-58150 OO BORSTR DEFS 111 
58151 CS BORPIC FUSH BC :SAVE ALL REGISTERS 
58152 DS PUSH DE 
58155 ES FUSH HL 
S8134 FS FUSH АҒ 
58155 o8 EX АҒ, АҒ” 
58156 FS FUSH АР 


:ТНЕ NEXT 5 BYTES ARE А WAIT LOOP WHICH YOU МАУ HAVE TO ADJUST 
: YOU MAY ADD AS MANY BYTES HERE AS YOU NEED TO ADJUST TIMING. 


58157 
58138 
58140 
: WAIT 
: ALSO 
58142 
58144 
28146 
38147 
58148 
58149 
58159 
58155 
58154 
58157 
58159 
98160 
28161 
28162 
5816 
58164 
58165 
38166 
58168 
58170 


29 ADD HL, HL 
1800 JR FLYBAK 
3E04 FLYBAK LD A, 4 


FOR (FLYBAK +1) TV ROWS WHILE BEAM REACHES ТОР OF SCREEN 
МАУ NEED ADJUSTMENT 


O60F SCANM LD В,15 

10FE ма DINZ LN4 

оо МОР 

A7 AND A 

св КЕТ 2 

SD DEC А 

C21EES JF NZ, SCANM 


co | КЕТ М2 :5 T-STATE TIMING TRIMMER 
LD HL, (FICDAT) 


OEFE LD С, 254 :SET FORT # 

7E LD А, (HL): LOAD # OF LINES 
23 INC HL 

o8 NXTLN2 EX АЕ, AF': STORE IN А? 

7E LD A, (HL): ROUS THIS LINE 
23 INC HL 

54 LD D,H: STORE START OF THIS ROW IN DE 
SD LD E,L 

EDAZ NXTRW OUTI :SEND DATA 

ЕРАЗ OUTI 

ЕРАЗ QUTI 
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58172 ЕрАЗ QUTI 

58174 ЕРАЗ DUTI 

38176 EDAZ OUTI 

58178 EDAZ OUTI 

58180 EDAZ OUTI 

58182 EDAZ OUTI 

58184 EDA OUTI 

58186 тр DEC A :GENERATE NEXT ROW OF DISFLAY 
58187 САЗУЗЕ JF Z, NXTLN 

58190 62 ` LD H, D 

58191 6B LD L, E 

58192 0600 LD В, © :BUT FIRST WAIT 20 T-STATES 
:FOR FLYBACK TO FINISH 

58194 обоо LD B, O 

28196 1800 JR O 

58198 OO МОР 

58199 1800 JR NXTRW 

58201 o8 NXTLN EX АҒ, AF’: NEXT LINE OF BORDER 
58202 3D DEC А 

58205 E6FF AND 255 : 7 T-STATE EQUALIER 

58205 C231E3 JP NZ, NXTLN2 

58208 F1 РОР АҒ :КЕТКІЕУЕ ALL REGISTERS AND RET 
58209 08 ЕХ АҒ, АҒ” 

58210 F1 РОР АҒ 

58211 Е1 РОР HL 

58212 D1 FOF DE 

58215 C1 FOF BC 

58214 ЕВ EI 

582135 ED4D RETI 


BYTES 65021-3 WILL HOLD 195,19 AND 227 


I found out that I couldn't bring the start of the routine down 
to the top of the tube to make a picture no matter what value 1 
poked into FLYBAK+1. Maybe you can do better with your set. 


Actually we can get the first border change to the TV before it 
gets to the normal print area of the screen. The first change 
occurs Z characters LEFT of the normal print area. That brings 
the 2nd change of color between what is normally character © and 
character 1 of the print line, the 2rd between characters 4 апа 
=, etc. The last line also gets 1 character space into the right 
border area. То visulize this it is best to assume that the 
border is "behind" the print area. 


We have to have the ability to extend our pattern from the 
border into the print area when we want to so that we can't tell 
where border ends and text area starts. For this routine we will 
assume that the text area has been devided into ó border lines 
each of which is 22 pixels deep. This is equivalent to 4 
characters deep. In other words, we will make perfect squares on 
the screen. 1+ you prefer to have narrower border lines or 
possibly border lines of variable depth, then АТТЗЕТ is easily 
adjusted. 
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We enter the routine with HL pointed at the border data of the 
first column of the first border line in the text area. ATTSET 
takes this byte, multiplies it by 8 to obtain a paper value, 
OR's it with the INE value of that cell and then places the lat 
in the first byte of the attribute file. The next border value 
is taken and used for the next four text columns of line "P and 
this is repeated for the next six border columns. The value of 
border column B is used for the final Z test columns, and this 
line of border data is then reprocessed 2 times for the 
remaining text lines of this border line. The whole thing 
repeats for each of the other 5 sets of "border lines". 


USE: TO SET THE FAFER ATTRIBUTES WHEN GIVEN BORDER DATA 

ENTRY: HL = ADDR OF 1ST BYTE OF BORDER DATA IN TEXT AREA AS 
FRODUCED BY "EXFAND" 

EXIT: BC = О, HL = #5800 


58217 110058 ATTSET LD DE, #5800 :РОТМТ HL AT START OF ATTR 
58220 EB EX DE,HL 

58221 0606 LD В, 6 : # OF BORDER LINES 
58225 OEO4 NXTLNZ LD С, 4 : 4 CHARACTERS WIDE 
58225 DS NXT14 FUSH DE 

98226 CS FUSH BC 

28227 ОЕЗВ LD C. 56 : MASK FOR РАРЕК 
98229 1А LD А, (ПЕ): GET BORDER BYTE 
58230 07 RLCA :X8 

58251 07 КСА 

58252 07 RLCA 

58255 АЕ ХОК (HL) :USE INK OF CELL WITH FAFER 
:А5 NEW ATTR 

58254 А1 AND C 

58255 АЕ XOR (HL) 

58256 77 LD (HL), A : WRITE IT 
:КЕРЕАТ FOR NEXT 7 BORDER COLUMNS EACH OF WHICH IS 4 WIDE 
58257 13 INC DE 

38238 2 INC L 

58259 0607 LD B, 7 :COUNTER 

38241 1А NXT12 LD А, (DE) 

58242 07 RLCA 

98243 07 RLCA 

58244 07 RLCA 

58245 АЕ XOR (HL) 

58246 А! AND C 

58247 АЕ XOR (HL) 

28248 77 LD (HL), Â 

58249 2C INC L 

58250 AE XOR (HL) 

58251 n1 AND C 

58252 AE XOR (HL) 

38253 77 LD (HL), A 

58254 2C INC L 

58255 АЕ XOR (HL) 


98256 Ai AND C 
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58257 АЕ XOR (HL) 

58258 77 LD (HL), ñ 

58259 2С INC L. 

58260 АЕ XOR (HL) 

58261 Al AND C 

58262 AE XOR (HL) 

58263 77 LD (HL), A 

58264 2C INC L 

58265 13 INC DE 

58266 10ЕЗ DJNZ NXT12 

58268 1A LD А, (DE) : NOW $ RIGHT MOST ATTR COL 
28269 07 RLCA 

28270 07 RLCA 

58271 07 RLCA 

58272 AE XOR (HL) 

58273 Al AND C 

58274 ӨЕ XOR (HL) 

58275 77 LD (HL), A 

58276 2 INC L 

58277 AE XOR (HL) 

58278 Al AND C 

58279 AE XOR CHL) 

58280 77 LD (HL), A 

58281 2C INC L 

58282 AE XOR (HL) 

58282 А1 AND C 

58284 AE XOR (HL) 

58285 77 LD (HL), A 

58286 23 INC HL 

58287 C1 POF BC :HL NOW AT NEXT LINE OF ATTRS 
58288 OD DEC С :РЕРЕАТРОК NEXT3 ATTR LINES 
58289 2803 JR 2, OUTI 

58291 D1 РОР РЕ 

58292 18BB JR NXT14 

58294 Е! QUT і РОР AF : DISCARD LAST STACK ENTRY 
58295 13 INC DE :FOINTER TO NEXT LINE OF BORDER 
: DATA 

58296 12 INC DE 

58297 13 INC DE 

58298 1083 DJNZ NXTLN2 :REFEAT FOR NEXT 5 BORDER 
:LINES 

58500 C9 RET 


Ав a demonstration for these first 2 routines. we shall produce 
a multi-colored "patch quilt" pattern of eight border lines Бу 
eight border columns. Each patch of the quilt will be 4 x 4 
characters in size. The first and the last lines of these will 
Бе in the top border and the bottom border. At least part of 
these patterns will be visible on the screen although the top 
pattern may not all show on your TV or monitor depending upon 
the amount cf room between your screen mask (the outer plastic 
frame around the tube) and the normal print area used by the 
screen. Each row of the quilt will thus be 22 scan lines high. 


Chapter 7 Advanced 2068 Machine Code Vol. 1 Fage 209 


To start generating the pattern 22 scan lines above the print 
area I found that my ТУ needed to wait only 4 scan lines. 
Actually, I couldn't see the top of the pattern and made this 
adjustment by knowing where the bottom line of the 22 scan lines 
should be and adjusted accordingly. Your TV set or monitor may 
give you more room. (FLYBAE + 1) will thus become 4. 


The border pattern will be built up in BDRSTR. Since we have one 
byte for the number of lines and В rows and 11 bytes for each 
row, we will need 8? of the 111 bytes of BORSTR. Since we have 
the initial number of lines byte and a byte for the number of 
scan lines per section followed by the 10 colors in the line, 
the start of the attributes for line 2 is at (BORSFC +1 +11 +1) 
or (BORSTR +15). We can thus set the PAPER attribute with: 


LD HL, BORSTR +15 
CALL ATTSET 


USE: DEMONSTRATION OF BORFIC AND ATTSET 


38301 3EO4 ВРОЕМО LD А,4 :MAY HAVE ТО BE RESET FOR TV 
: BEING USED 

58503 Z21DEX LD (FLYBAK+1),A 

58506 21A4E2 LD HL, BORSTR : BUILT BORDER DATA INTO 
: BORSTR 

58509 2202b2 LD (FICDAT), HL 

239312 АҒ ХОК ñ :START WITH BLACK BORDER 

$8315 5608 LD (HL), 8 : ЖОҒ BORDER LINES 

58515 23 INC HL 

:LOOF TO GENERATE DATA FOR EACH BORDER LINE 

58516 2620 NXBL IN LD (HL),22 :22 SCAN ROWS THIS SECTION 
58518 25 INC HL 

58519 3600 LD (HL), © :15Т BORDER COLUMN BLACK 
58521 23 INC HL 

58522 0608 LD В, 8: RUN THROUGH 8 COLORS FOR THE 
:MIDDLE B COLUMNS 

58524 77 NXBCLM LD (HL), A 

58325 C603 ADD А, 5 :CALC NEW COLOR 

58527 E607 AND 7 

58529 25 INC HL 

58550 10F8 DJNZ NXBCLM 

58552 70 LD (HL), B : BLACK FOR LAST COLUMN 

58555 25 INC HL 

58554 C603 ADD А, = :CHANGE STARTING COLOR FOR 
: NEXT LINE 

58556 E607 AND 7 

298338 2ОЕЗ JR NZ, NXBLIM :WILL ONLY BE ZERO WHEN 
: DONE 50 САМ USE А А5 COUNTER 

58540 21Б1Е2 LD HL, BORSTR + 12: SET FAFER ATTR ТО 
: MATCH BORDER DATA 

58245 CD69EZ CALL ATTSET 

98546 CD9OE2 CALL HIRON :RUN THE FROGRAM 

58549 76 TSLF9 HALT 


58550 10FD DJNZ TSLF9 : В = © FROM ATTSET SO WILL 
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:RUN FOR 256 SCREEN REFRESHES OR 4.27 SECONDS 


58552 EDS56 ІМ 1 :RESELECT IM 1 FOR BASIC 
98354 ЗЕЗҒ LD А, 65 

58556 ED47 LD I, A 

98357 C9 RET 


It is time for the first assembly and saves of the new source 
code and new object code. I used the names of MARS.BIN for the 
source code and MAROBJ.BIN for the object code. However, in the 
process of doing this 3 different times by the time I was done 
I always saved the object code under different names and ended 
up with the final version as MAROBJ2.BIN which is what it is 
called in the MASTDEMO basic program. Change the names in line 
1 of MASTDEMO if you use different values. 


Load MASTDEMO and make the following changes in it: 
Add to line 1 :CAT "marobj2.bin", 58000, 

Change line 100 to: 

100 GOSUB 300: RANDOMIZE USR 59466: RETURN 


We have to add the routine at 200 which is merely the entry to 
the routines. It actually is added on to the end of the first 
set of entries we used earlier but it does FOKE in a new set of 
values for the Interrupt Generator. 


SOO POKE 65021,195: POKE 65022,19: POKE 65023, 227 

305 RESTORE 300: FOX X = 59454 ТО 59471: READ Y:  FOKE X, Y: NEXT 
X: RETURN 

$10 DATA 229, 205, 249,228,225, 201,22 9205, 62, 228, 225, 201, 229, 


205,189,227, 225, 201 


We gave you all the entry codes for all 3 demos in this section 
at one time. Hope you don’t mind. 


After checking your new lines for correctness, Save a new copy 
of MASTDEMO and then run the program using option 7. As was 
pointed out in the preceeding text, you may have to make а few 
adjustents for your particular screen. IF you decide to add more 
bytes at 58157-40 to adjust timing, remember to also adjust the 
entry values in line 310 for the changed entry points. 


You should have a nice pattern on the screen. Of course if you 
want the pattern to last until a break is received you can do so 
at address 58350 by adding the routine we used earlier and gust 
having the end jump back if no break is received. You should be 
enough of an expert to do that by now. 


General Furpose Border Writing Routine--EXFAND 


NDA 
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Of course this demo was quite specific. We should write a 
routine to generate data for any number of scan lines and any 
number of columns that we want. This is the Ob ject of EXPAND. Ше 
will use what is called "compact border data". 


The routine will allow us to specify any number of border lines, 
each of any depth (up to 256 in each case), and use two colors 
for each border line, which will then be defined by the LEFTMOST 
10 BITS of two "compact data bytes". Note the use of bits апа 
bytes. Each of the bits corresponds to one border column on a 
border line. Using a system analogous to the 2068 Basic use of 
INK and PAPER, let the two colors available on each border line 
be BINK (border ink) and BAFER (border paper?, denoting use of 
BINE color by a "1" in the bit and the use of BAPER color by а 
"с". 


We only need to specify new values of BINK/BAFER whenever we 
want to change colors as we work down the screen. We need some 
way of telling EXFAND to start using new colors. The easiest way 
is to use the spare 6 rightmost bits of the data for a line. We 
set these to FF(hex) for a change of colors, and then 
immediately follow that byte with two bytes the first of which 
is the new BINK color and the 2nd of which is the new BAFER 
color. 


We will also use those 6 last bits to indicate the "end of data" 
аз well merely by setting them to ЗЕН. These useages will Бе 
commented on when we write another demo to use them. But first 
the EXPAND routine: 


USE: EXFAND BORDER DATA FOR BORFIC USING COMPACT DATA SETS 
ENTRY: HL - START OF COMACT DATA 
EXIT: HL = ADDR OF 15Т BORDER VALUE ОЕ 15Т BORDER BORDER LINE 
IN TEXT AREA 
A = О, В = BAFER COLOR, С = BINK COLOR 
DE = NEXT BYTE AFTER COMPACT DATA AREA 


58359 11A4E2 EXFAND LD DE,BORSTR : BUILD UP BORSTR TABLE 


58562 EDAO LDI : TRANSFER # OF LINES 

58564 АР ХОК ñ :А WILL COUNT # OF TV SCAN LINES 
: ALLOTTED TO DATA 

58565 o8 EX AF, AF?’ 

58566 4E NEWCOL LD C, (HL) :C = BINE COLOR 

28367 22 INC HL 

58268 46 LD B, (HL) :В = BAPER COLOR 

58269 25 INC HL 

:ІҒ WE ARE АТ TEXT AREA THEN STORE ADDR OF EXPANDED DATA 

98270 08 NXTWD EX АҒ, AF’ 

58571 ҒЕ2О TPMRGN CP 32: MAY BE ALTERED TO CHANGE  DEFTH 
:0F TOF MARGIN (SHOULD ВЕ 4) 

58575 С209Е4 JF М2, NYET 

$8276 DS FUSH DE 


58577 86 NYET ADD 4, (HL) sUPDATE USED SCAN LINE 
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: COUNT 


258778 
28379 
58281 
38382 
58585 
58584 
58385 


58387 


17 ABC 


Advanced 


2068 Machine Code Vol. 1 Chapter 7 


EX AF, АР’ :RESAVE COUNT 

LDI :XFER DEFTH OF THIS SECTION 
INC BC 

LD А, (HL) 
EX РЕ. HL 
PUSH DE 
LD Е, 8 :FOR EACH BIT 

RLA : ROTATE OUT LEFT INTO CARRY 


:TAKE 1ST COMFACT DATA BYTE 


:FLACE A RAPER BYTE IN BORDER DATA IF BIT IS SET 


s8388 
58589 
58292 
58292 
58594 
58:97 
58598 
: DATA 
58299 
58400 
98401 
: BITS 
58402 
28403 
58406 
58407 
58408 
58409 
78410 
58415 
58414 
58415 
58416 
58417 
58418 
58420 
28421 
58425 
58424 
58427 
58428 
58429 


Notice line 


It should be the number of scan lines above the print 


short, it stands for TOF MARGIN. EXFAND uses this value to 


70 

D219E4 

71 

25 РАРЕК 


17 PAFER2 


23 FAFERS 


58371 


LD (HL),B 

JP NC, РАРЕК 

LD (HL), C :ELSE INSERT BINK BYTE 
INC HL :NEXT ВУТЕ 
DEC E : TEST COUNTER 
JF NZ, ABC 

POP DE :PROCESS 2ND BYTE OF COMFACT 
INC DE 

LD А, (DE) 

RLA :CHOSE BAFER OR BINK FOR IST 2 
LD (HL), B 

JP NC, PAPER2 

LD (HD, C 

RLA 

INC HL 

LD (HL), B 

JF NC, FAFERZ 

LD (HD, C 

INC HL 
LD A, 
INC DE 
EX DE, HL 

OR 192 ЗЕН = NEW COLORS REQUIRED 
INC А 

JR 7, NEWCOL 

INC А :3EH = END OF DATA 

JF №, NXTWD 

POP HL :RETRIEVE ADDR FOR ATTSET 
INC HL 

RET 


(DE) : TEST FOR COLOR CHANGE 


ТРМАБМ СР 32 


агеа. In 
find 


the correct address in the border data for use as an entry value 
to ATTSET, where such 
value away and returns it in HL ready for immediate use, if so 
desired, with ATTSET. 


MDEMO 


use is applicable. It then stores this 


— 
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To show you how this routine works, how about a giant M put on 
a background of four different papers, yellow, red, magenta and 
blue. The M will stand on the bottom of the screen. This will 
also show you how to set up the compact data area as well. 


Our "M" will be designed in 4 x 4 character chunks. The diagram 
below illustrates: 


BIT Ж we ТЕ ү of CX 
LINE O YELLOW 
с BAFER 
1 RED 
Woon - == --------- اا اا‎ BAFER 
2 ххх ххх 
5 XXX XXX XXX XXX МАБЕМТА 
----------------------------------------- BAPER 
4 XXX XXX XXX XXX XXX XXX 
5 XXX XXX XXX XXX XXX BLUE 
----------------------------------------- BAFER 
6 XXX XXX XXX 
7 XXX XXX XXX XXX XXX XXX 


We will use white BINK for the M itself and the squares marked 
with XXX will be white. Notice that we have labeled the bits оп 
the top of the diagram. Each line will therefore take 2 bytes 
although the 2nd byte will only use the two high bits (7 and 6). 


These bytes would be the following pairs: (in hex) 
OO OO OO OO 41 ОО 65 ОО 77 ОО SD oo 49 00 ES 80 
XX XX XX 


We now have to intersperse the other necessary data in this 


Sequence. We must precede this list with 4 bytes of data 
containing: 


1. # of border lines, 2. BINK, =. BAFER 4. # SCAN LINES 
FIRST SECTION. 


Thus our data starts as: 


ОВ -- 8 border lines 
07 -- EINE 

06 -- BAPER 

52 -- SCAN LINES 


At the bytes marked XX in the above sequence we must add =F (all 
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175 in lower 6 bits) to the byte to indicate that we want to 
change colors and then insert new BINE and BAFER bytes and the 
number of scan lines for the next section before going оп. We 
also have to insert a scan line number byte between each section 
as well. Finally, the last byte of the sequence (BOH) must have 
ЗЕН added to it to indicate the "end of data". 
Thus the whole sequence is: 
ОВ O7 06 32 OO ZF O7 O2 Z2 ОО OO Z2 41 ТЕ O7 ОЗ Z2 61 OO 12 77 
SF 32 SD OO 52 49 ОО 52 EZ ВЕ 
The simple sequence of envents is: 

LD HL, COMFRESSED DATA 

CALL EXFAND 

CALL ATTSET 

CALL HIRON 
USE: DEMO FOR EXFAND, ATTSET AND BORFIC TO PRINT А LARGE "M" 
58420 3E20 MDEMO LD А, 52 :22 SCAN LINES ABOVE PRINT 
58432 Z204EA LD (TPMRGN+1),A 
58455 ЗЕО4 LD А, 4 | | 
58457 Z21DEZ2 LD (FLYBAK+1), А > 
58440 21A4E2 LD HL, BORSTR 
58443 22A2b2 LD (FICDAT), HL 
58446 2164Е4 LD HL, MDATA 
58449 CDF7ES CALL EXFAND 
58452 CD69E3 CALL ATTSET 
58455 С090Е2 CALL НІКОМ 
58458 76 XLP HALT 
58459 10FD DINZ XLF 
58461 EDS6 IM 1 :BACK TO BASIC 
58465 ЗЕЗЕ LD А, 63 
58465 Ер47 LD I, А 
58467 C9 RET 
58468 08070620 MDATA DEFE В,7,6, 22, : COMPRESSED DATA TABLE 
58472 00570702 DEFB 0,62,7,2 
58476 20000020 DEFE 52,0,0,22 
58480 A1ZFO0703 DEFE 65,62,7,2 
98484 20620020 DEFE 52,99,0,22 
59488 773F0701 DEFB 119,62,7,1 
58492 20500020 DEFE 22,92.0,.22 
58495 49ОО2ОЕЗБЕ DEFE 79,0,22.227,190 


Now that we have demo 2 of the margins in place we can again 
assemble and save both the source and Object codes. Again 
reloading MASTDEMO and by changing line 120 to: 


110 GOSUB 500: RANDOMIZE USR 59460: RETURN 


Chapter 7 Advanced 2068 Machine Code Vol. 1 Раде 215 


We can then save MASTDEMO and select option 7. Again, you тау 
have to adjust wait loops to get it to be perfect. 


This is really the end of the margin routines. The routines can 
be used for other things as well, singly or in combinations. 
BORFIC on its own can supply some fancy graphics in the top 
and/or bottom margin if you remember that every scan line could 
be changed if you had that in mind rather then every 22 lines as 
we used. 


On the other hand, remembering that the routines don’t affect 
the display file or INK attributes, you could use  BORFIC, 

ATTSET and EXFAND to provide a spectacular background when, say 
en arcade game has been frozen or you have just been  extermin- 
ated or zapped. 


COUNTDOUN 


One last demo just to show you a sequence of pictures that spill 
over to the border more in line with the ships demo presented 
earlier. Here we go: 3, 2, 1, O ... 


58501 08050220 DATS DEFE 8,5,2,52 :"3" COMPRESSED DATA 
58505 FF802001 DEFE 255, 128, 32,1 
58509 80200180 ГЕЕВ 128, ‚128 
58512 2OFFBO20 DEFE 32, 255,1 128.22 
58517 FF802001 DEFB 255,128,22,1 
58521 80200180 DEFER 128,32,1,128 
58525 2ОРЕВЕ DEFB 22,255,190 
528 08020420 DAT2 DEFE В,2,4,22 :"2" COMPRESSED DATA 
58225 FF802001 DEFB 255,128,22,1 
58556 80200180 DEFE 128,22,1,128 
58540 20FF8020 DEFE 22,255, 128, 32 
58544 FF8020CO DEFE 255,128,22,192 
58548 0020C000 DEFB 0,22,192,0 
58552 20FFRE DEFE 52,255, 190 
58555 08070220 DATI DEFB 8,7,2,22 :"1" COMPRESSED DATA 
58559 1С00207С. DEFE 28,0,22,124 
58563 o0200Coo DEFB 0,22,12,0 
58567 200C0020 DEFE 22,12,.0,22 
58571 OCOOZOOC DEFER 12,52,0,12 
58575 00207FB80 DEFE 0,.22,127,128 
58579 207FBE DEFB 32,127,190 
58582 08010552 DATO DEFE 8,1,5,22 :"O" COMPRESSED DATA 
58586 7FOO02O0FF DEFB 127,0,22,255 
58590 B020C780 DEFE 128,22,199,128 
58594 20CD8020 DEFB 32,205,128,72 
58598 D98020F1 DEFE 217,128,22,241 


28602 B8020FF80 DEFE 128,22,255,128 
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38606 207ЕЗЕ DEFB 32,127,62 

58609 В5ЕЗ BORTAB DEFW DATZ 

58611 AQE4 DEFW DAT 

58615 BRE4 DEFW DAT1 

58615 D6E4 DEFW DATO 

28617 ЗЕ20 CNTDWN LD А, 22 USES 22 SCAN LINES ABOVE 
: РАТМТ 

58619 3204E4 LD (TFMRGN-1)0, A 

58622 3604 LD A, 4 

58624 5210ЕЗ LD (РЕУВАК+1), А 

98627 21A4E2 LD HL, BORSTR 

58650 22AZ2E2 LD (FICDAT). HL 

58655 F3 DI 

58634 CD9OE2 CALL HIRON 

58657 21Ғ1Е4 LD HL, BORTAR 

58540 0604 LD В, 4 :4 IMAGES TO DO 
98642 SE NXTNUM LD Е, (HL) :ТАКЕ ADDR OF COMPACT 
: BORDER DATA 

58545 25 INC HL 

58644 56 LD D, (HL) 

58645 25 INC HL 

28646 CS PUSH BC 

58647 ES FUSH HL 

58648 EB EX DE, HL 

98649 СОРУЕЗ CALL EXFAND 

38652 CD69E3 CALL ATTSET 

58655 FE EI 

58656 0652 LD B, SO : AFFROXIMATELY 1 SECOND 
58558 76 FSE HALT 

58559 10FD DJNZ FSE 

58661 ҒЗ DI 

28662 E1 FOP HL 

58663 C1 FOF BC 

98664 10E8 DJNZ NSTNUM : TO NEXT IMAGE 
58666 ЗЕЗЕ LD А, 63 :ВАСК TO BASIC 
58668 ED47 LD I, ñ 

58870 EDS6 IM 1 

58672 FB EI 

58673 C9 RET 


This is the last byte used. Therefore the space between 58674 
and 595299, a total of 725 bytes, is not used and these routines 
could be moved up that much if you like. If you decide to do so 
remember to change the CALLs in the entry routine. We now have 
one last assembly to go along with one last save of source and 
object codes and of course опе last change to the MASTDEMO 
program, namely: 


120 GOSUR 200: RANDOMIZE USR 59454: RETURN 


If you have been able to follow this all along vou now have the 


A 
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complete program with enough basic to switch to апу one of eight 
demo programs provided in this chapter. The text that goes with 
these programs and these demonstrations should be enough for 
even the most novice of machine code writers to adopt them to 
their uses. 


Again we will finish up our paperwork properly: 


FSE ES22 NXTNUM ES12 CNTDUN E4F8 
BORTAR E4F 1 DATO Е406 DATI EAEHB 
DAT2 E4^0 DATZ E485 XLF E4SA 
MDATA E464 MDEMO EAZE FAFERZ E42E 
PAFER2 E427 PAFER E419 ABC E413 
NYET E409 TFMRGN E403 NXTWD E402 
NEWCOL ESFE EXPAND E4F7 TSLF9 ЕЗЕО 
NXBCLM Ера NXEL IN ECC EFDEMO ЕЗЕр 
OUT1 ESB6 NXT12 381 NST14 E371 
NXTLNZ EZ6F ATTSET E69 NXTLN 399 
NXTRW 336 NXTLN2 Е 1 LN4 E320 
SCANM ЕЗІЕ FLYEAK ЕЗІС EORFIC E313 
BORSTR E2A4 FICDAT Е2А2 НІКОМ Е290 


The student will again realize that most of the code ends ир 
being demo programs to run the basic routines and thus is not 
necessary to run his/her programs. Eliminating these programs is 
quite easy with Zeus if you assembled your own code. They are: 


BFDEMO 58501 to 58257 
MDEMO 58450 to 58500 
CNTDUN 58501 to 58675 


Removing these reduces the actual routines you need to support 
your program down to a mere 771 bytes. Recalling all the demo 
programs of part one of the code, one could easily assemble them 
to take the place of one of those demos and thus consolidate 
things down to a mere 4002 bytes and get everything above the 
61000 mark. Your code could then be loaded below that and take 
as much space as you want. 


Again all is not wasted to the user of the already assembled 
disks or tapes as you could overwrite the demos with sections of 
your code. There should be almost enough room for everything 
except maybe areas to run a whole horde of sprites. If you 
remember most of the sprite area is consumed with the sprite 
expanded data. You could conveniently expand them into lower 
addresses, and as was demonstrated, use the areas over when done 
with а particluar sprite and needing another. 


We started this chapter quite a few pages ago. Although I have 
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not demonstrated an actual arcade game in this section. I hope 
I have given the reader enough food for thought when designing 
his/her next game. 


Tips to Game Designers 


I just want to write a few lines to help you avoid some of the 
mistates I have seen other people make in designing games in the 
hope that my readers can avoid making the same mistakes in 
writing their own games. There is а lot more to designing modern 
computer games then just scrolling "space invaders" across the 
screen and erasing them when zapped. Detection schemes of hits 
are sometimes based on the color of the attribute the bullet 
enters. 


The selling point of most games is a combination of the gaming 
idea, the progressing difficulty of the game, and the graphics. 
Early games didn't spend too much time on graphics but the newer 
And edition of revised and revamped games spend much more effort 
on the graphics. Games that simulate three dimensional 
representations ОҒ walls and spaces take quite a bit of 
predesigned memory which is just printed to the screen in 
sections depending upon the desired screen. Because of the 
repetativeness of "standardized designs" they still leave 
something to be desired. Sometimes graphics are the real selling 
point of why people like to play a game. 


Unless there is some reason for doing it, try to design some 
randomness into your sequence of events so that the same screens 
don’t always follow one another in unvarying monotonous sequence 
each time the game is played. Granted that some games of skill 
rely on this but if your game isn’t one of them change things so 
that the results aren’t always predictable. 


Spend some time testing everything section by  settion. I have 
seen programmers misuse the ON ERR command to cover programming 
errors. The player always knows something went wrong when all of 
a sudden the program has skipped something. Frograms have to be 
tested extensively. You don't necessarily have to test them as 
friends are always too willing to run your games for you and 
tell you when things go wrong especially when you instruct them 
as to what sort of things to look for. 


Something else that really isn't an error but only a slipup in 


programming is the sometimes lack of sufficent testing for 
movement of the joysticks. Make sure that you read the joystick 
often enough to prevent the designing of an impossible 
situation. I have witnessed more  "sermonizing" on the 


sluggishness of joysticks оп a particular game then I would care 
to mention. In reality, its not the joystick at all but too few 
readings of it for the program to respond properly. For you 
purist who do not know the meaning of the word "sermonizing" I 


DA 
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just want to remind you that the favorite word in a sermon is 
the name of God. | 


If your game is multi-person, have at least one version of the 
game where the computer takes on the roll of an Opponent so that 
only one person can play the game. The real challenge of game 
writing comes in making a stupid computer play a game. (If you 
don't believe me, design the game of  tic-tak-toe іп Basic eo 
that the computer plays ап opponent.) This gets into some 
serious logic statements at times. Make sure your logic is 
absolutely right. This is even more true when adapting а game 
everyone already knows for the computer. The best way to attack 
the problem is to do it in Basic first. If it is fast enough, 
don't bother converting it to machine code. If it іс sluggish., 
it is demandatory to speed up things by converting slow portions 
to code. It is unforgivable to write a program where the human 
has to wait for minutes for the computer to make up its mind as 
to what to do for its turn. If yOu can't do it in ZO seconds or 
less plan on some sort of graphic or sound routine to entertain 
the human or to let him know what is going on. This іс 
especially true for the thinking type games as there is usually 
enough graphic action in the shoot em up type to keep things 
entertaining. 


Best of luck. 
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СНАҒТЕК В. FACTUALS AND ADVENTURE FROGRAM GRAFHICS 


I call these two programs "Diamonds in the rough". They could be 
real gems someday but in the form presented here need more work 
and polishing and, since they are in Basic, conversion to 
machine code. However, dispite this, they are far enough along 
to demonstrate what they are supposed to be doing. It also 
leaves something for the interested student to do. 


Terrain--A Factual Program 


1+ you have never heard about factual geometry, its about time. 
It is a technique used Бу many profesional graphic design 
Programs. The technique was originally invented by Benoit 
Mandelbrot and is now used by computers to creat all the uirks 
and irrgularities of a mountain or other landscape by a random 
method. No two runs of this program ever creat quite the same 
landscape. 


What this program does is takes a simple triangle, finds the 
midpoint of each side and adds a random positive or negative 
displacement to its position. Then it draws new lines connecting 
these points with each other as well as to the old points . It 
does this 9 times and is quite interesting to watch it happen as 
more and more trianges fill the space. We thus go from 1 to 4 
trianges in the first pass, from 4 to 16 in the second. from 16 
to 64 in the third, from 64 to 256 in the 4th, and from 25 to 
1024 trianges in the final form. I think that's chopping up a 
triangle finely enough. 


The first line of the program is the starting data. The first 
data bit actually being a standard deviation. It can Бе varied 


from О, which means don't deviate at all to 1 which is too much 
for our uses. Values of from .Z5 to .65 give the best results, 
The other 6 data bits are the x and y coordinates of the 


starting triangle. Taking the values given in the data line 
gives a nice pattern although you are allowed to alter them for 
your own purposes. The program only works on triangles, Tt is 
left to the student to: 


. Modify it for other shapes. 

. Keep one already finished area while doing another. 

. Add appropite coloring. 

. Convert it to machine code as it already takes about 7 
minutes to run. 


The program prints the parameter (a) in the lower corner of the 
screen to inform you of progress. At the end, the value of 5 
used is printed. 
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10 DATA „4,0,100,100, 145,255,100 

го GOTO 100 

30 FLOT xti) yti): DRAW х (5) -х (i). у (6 4)—-у(1): RETURN 

40 LET U = (x(k) + xC3))/2: LET м = (ylk) + y(;j))/2 REM Find 
center point on a line 

SO LET r = s Ж (ABS ((4(;) - w+ ABS (y (5) — v)) :REM calculate 
deviations 

60 LET x = INT ABS ((RND - RND) Xr + u): LET y = INT AES  ((«RND 
— КМВ) же + v) :REM Notice use of RAND - RND' 

70 IF x > 255 THEN LET x = 255 : REM Keep on screen 

80 IF y > 175 THEN LET у = 175 

90 LET x(i) = x : LET y(i) = y : RETURN : REM Store values 

100 LET а = 541: DIM xí(d) : DIM y(d) : REM Initialize program 

110 READ s: FOR J = 1 TO 2: READ x(j): READ У(:): NEXT j 

120 BORDER 6 

130 LET c = 2: FOR t = 1 TO 6 

140 CLS 

150 INK 4: КЕМ Green 

160 LET а = O: FOR m = 1 TO c-1 

170 FOR п = 1 TO m 

180 LET ; = a*n: LET i = j+m: GOSUM ZO: REM Flot triangles 

190 LET j = 1+1: LET i = a*n: GÜSUN 3O 
200 NEXT n: LET а = atm: NEXT m 
210 INE O :REM Black e 
220 LET d = а: FOR m = c TO 2 STEF -1 - 
220 РОВ п = 1 TO m-1:LET і = atm: LET j = ізі: GOSUB 50 
240 NEXT п: LET a = а-т+!: NEXT m 
250 IF t =6 THEN GOTO 9000 
260 FOR м = c TO 2 STEF -1 


270 LET а = d: LET d = d-m*1: LET b = a+a-m 
280 FOR j = a*1 TO atm: LET i = j+j+b 

290 LET x(i) = x(j3): LET y(i) = yj) 

5ОО NEXT j: NEXT m 

510 LET c = с+с-1: LET а = 1 


520 FOR m 2 TO c STEF 2 

330 РКІМТ АТ 21,29; a 

540 FOR i = a*1 TO atm STEF 2: LET j = i-m«i: LET k = iem: 
GOSUB 40: NEXT i 

350 FOR i = а+2 ТО а+т STEF 2: LET j = i-m: LET k = i+m+i: 
GOSUB 40: NEXT i 

360 FOR і = а+т+2 ТО а+т+т STEF 2: LET j = i-1: LET k = 1+1: 


GOSUR 40: NEXT i 
370 LET а = Е: NEXT m 


380 NEXT t 
7000 РКІМТ АТ 20,24; "==":5: COPY 
9900 STOF 


9910 CLEAR : MOVE "Terrain.bas",10 


As you can see, the program is а lot of 3uggling of variable 
and could chew up a lot of memory. One saving grace is that each МУ 
number that has to be saved is less than 256 so could fit int 

a single byte rather than a sluqqed variable. 


Running the program and then trying to add colors other then 
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green and black presents a problem. You cannot use Bright green 
ink and regular green paper in the same character space as you 
would like. 


Ав I said, the program is presented here to Give those 
interested in this technique some food for thought. 


ADVENTURE GRAFHICS 


Adventure type games such as Dungeons and Dragons (copyrighted 
by TRS Inc) when converted to the computer have to be able to 
generate literally hundreds to thousands of different scenes on 
the screen. The memory of the 2068 would not be able to handle 
ell these scenes as screens unless one resorted to what I call 
generic picture elements. 


Imagine a small MAF of only 16 by 22 spaces. That is a total of 
568 spaces. Now each space has 4 scenes to it as one looks 
North, East, South and West from it. As one looks north. one 
should see the local scene in the forground and the scene one 
step north in the background. Similarily, as one gazes East, the 
local scene should be in the forground and the scene East of the 
local scene in the background. Similar conditions epply to the 
South and West scenes. Drawing 4 scenes for 368 spaces is 1472 
scenes. We would never finish if each was different. Also. since 
we see adjacent scenes in the background of the local scene, we 
must make sure that when we move to an adjacent scene that we 
have in the foreground what we saw in the backgound of the scene 
moved from. This is the function of the Map grid. Each local 
scene number is held in it. А companion background scene is 
written in the background by looking up the number of the 
appropiate adjacent scene from the MAF. 


As Columbus said, "The world is round and and if I go far enough 
West I should eventually arrive home from the East." The MAF of 
an adventure world has the "Dark Ages" type borders--you can see 
off in the distance but you never go there. To simulate this 
type of impentratable boundary, adventure designers resort to: 

. Impassible mountains 

. Unventured seas 

. Vast stretches of tundra and glaciers 

. Unending desserts of sand dunes 


This is done by surrounding our Мар with a row of pixture 
elements that one can see but never get to. Our sample pattern 
thus grows to a grid of 18 by 25 needing even more scenes. 


We thus have to resort to what is called GENERIC pictures, 
Generic pictures can be drawn Of a Mountain, a forest, hill 
country, open plains etc. in two sizes, FOREGROUND апа EBACE 
GROUND. If we resort to Overprinting of scene pictures with 
special event picutres we can cut down on the number of scenes 
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we need. 


Special event scenes are things like a cottage. a town, a City, 
а castle, a ruin, a keep etc. which will be placed randomly at 
selected sites. Thus by printing a background of a hill or а 
mountain or a plain and then overprinting the special event 
scene we can get a, for example, cottage in the mountains, 
cottage in the forest, cottage on the plains etc. 


We thus want generic scenes and special event scenes. These аке 
easiest to do as line drawings using UDG graphics. 
Unfortunately, we only have 21 available at one time. These 
along with the 16 standard graphics and a few inverse and 
regular character graphics such as the colon, the underline and 
the period afford some additions. The slash and the backslash 
aren't too useful as they have a blank pixel line at the top and 
the bottom and so don't attach to other lines from adjacent 
characters. 


How about designing some GENERIC UDG's that will be useful in 
numerous scenes. If instead of doing them in straight lines we 
do them in rough graphics they can still be used where we want 
straight line graphics. Some extremely useful generic UDG's іп 
addition to a full slash and backslash are the half space slash 
and backslash going up а full character in 1/2 a character 
space. We need four of these for a right and left half of а 
space and the two slants. Similarly, а line that needs two 
characters to rise or fall a character Space are useful as well, 
requiring another 4 for upper and lower halfs. We could also use 
a center of character line. Vertical lines at the start and 
middle of a character space would be nice as well. Half circles 
in a space have a use other than tree tops as well. Are you 
beginning to get the idea? It really is а case of saving as much 
space ав we can and still do a lot of specialized scenes. We 
need a lot of space to run the rest of the program what with the 
monsters and the characters and the things that are found around 
the scene. 


Lets start by defining 2 sets of UDG characters. We will print 
Our generic picture by first printing the scene with one set and 
then switching UDG sets and adding the necessary elements from 
the 2nd set. We usually start with the set using the most UDG 
elements. To switch between sets we will use the lines: 


98 FORE 21675,88; POKE 22676,2595: RETURN for set 1 
99 РОКЕ 22675,159: FOKE 236764,254: RETURN for set 2 


The UDG code entry program goes like this: 


1 CLEAR 65182 :FDR X = 65184 TO 65525: READ Y: FOKE X.Y: NEXT Y 

100 DATA 113,124,1,6,25,56.8.49.142,97,128,956,152,96,16.140: REM 
FINE TREES 

110 DATA 14,16,100,25,98,126.112.129.112, 8, Z8, 152, 70, 17, 14, 129 

120 DATA 98,56,66,122,122.1,1,1,.98,28, 66, 22, 222, 128, 128, 178 


— 
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150 DATA 112,128,0,0.0,0,0,0,14,1,0,0,0,0,0,0 

140 DATA 1,2,2,2,2,66,162,162,128.64,64,64,64,64,64,64: REM 
CACTI 

150 DATA 162.158,.128,124,2,2.2.2. 64,64, 64, 66, 69, 59, 69,57 

160 DATA 2,2,2,2,2,2,2,15,2,60,64,64,64,64,64, 54, 240 

170 DATA 24,152,152,249,25, 21, 24,24 

180 DATA 0,72,206,40,17,146,124,18: REM THORN/BRUSH 

190 DATA 0,0,0,0,48,76,120,126: REM SCRUB BUSH 

200 DATA 249,0,0,0,47,0,0,126,0,0,65,0,240,0,2,64: REM WATER 

210 DATA 0,0,144,0,0,0,127.0 

220 DATA 0,0,0,0,4,Z5,165,155: REM GRASS 

250 DATA 23,0,88.1,192.2,22,7,114,:35.11,120, 177, 22. 249, 201, 621 
REM SHORT PRINT ROUTINE 

240 DATA Z, 28,32,64, 64, 64,128,128, 128,64,64, 36, 26,2, 2,4: REM 
TREES 

250 БАТА 192,56,4,2,2,2,1,1,1,2,2,36,68,64, 64,32, 

260 DATA 56,68, 68, 130,130,108, 16, 16,131, 68, 68, 40, 40, 198, 1,0 

270 DATA 128, 64,64, 22, 32, 19240404 35 4,448, 8,65 1,1 

280 DATA 128,96, 28, 2,1,0,0,0,0,0,0,0,192,56,4,3: REM DIAGONALS 

290 DATA 2,4,56.192,0,0,0,0,0,0,0,0,7,24,96,128 

300 DATA 128,96,16,8,8,6,1,1,0,1,2, 2,12, 16, 22, 192 

510 DATA 128.64.64,64,22,6,16,16,8,8,8,4,4,4,2,2, 2,1 

220 БАТА 1,1,1,2,4,4,8,8,16, 16,32, 32,32, 32, 64, 128 

$30 DATA 16416516516, 16, 16,16, 16, 128, 128, 128, 128, 126. 128, 128, 
128: REM VERT LINES 

240 DATA 0.0,0,0,0,255,0,0.0 


You can see what these graphis look like by entering lines 98 
and 99 as given above along with the following line. My 
designation for user graphics is to enclose such letters in 
brackets. Thus, PRINT "(A)" means print a UDG "A". 


S GOSUB 98 

10 PRINT "SET i" 

9 РАТМТ "А EC DEF 6H I J E L MR N O Е" "(а B CDEFG H 
TJKEMNOP)" "OR STU "(QRS TU" 

20 GOSUR 99 

25 PRINT "SET 2" 

SO PRINT 'ABECDEFGHIJKLMNOF"'"(à E CDEFG H 
IJELMNOF)"'"üRSTU"'"(RSTUD" 

55 STOF 


Either delete line 1 or use а GO TO 5 Statement to run the 
program. You may want to run this program and copy down the look 
ОҒ the symbols if you ever decide to add additional graphics to 
these ог refine some of the graphic scenes already built into 
the up coming program. 


Use MOVE "ADVENTURE. BRIN", 65185, 553 to save the code portion of 
the program. Don^t bother with the basic loader program. 


Оп to the program itself. Let's start at the end of the program 
and use a few space saving techniques. 
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9000 LET a = FI/FI: LET b = ata: LET c = b+a: LET d = ста: LET 
e = dta: LET + = e+at LET g = ++а: LET z = gta: LET i = z*a: DIM 
e$(d.a): LET а%(а)-"М": LET a$(b)-"E": LET ag$(c)="S": LET 
at$(id)z"W": LET q$-"": LET c#=CHR# 22+ CHR$ g + CHR$ O+ " (Z2 
underlines) ": LET S1z98: LET s2=Sita: INK д: ҒАРЕК а-а: CLS: 
BORDER f: GO TO 900 


9990 FOKE 23720,158: FOKE 23731.254: CAT "ADVENTURE. BRIN", 65182, 

555: GOTO 9000 

9995 MOVE “ADVENTURE. BAS".9990: MOVE “ADVENTURE. BIN, 65182, 252 
ог if you have only tape 

9995 SAVE "ADVENTURE" LINE 9990: SAVE "ADVENTURE" CODE 65182, 


585 


The save lines are quite standard and one should have no problem 


understanding them. However, try line 9000. What аге we doing 
and why? Simply, a = 1, b = 2, c = 2, etc. but z is out of place 
as h is going to be Horizontal. V will be vertical. Our basic 


program is going to be so full of small numbers and if you 
remember anything about numbers each one has an invisible to the 
screen slug of 6 bytes following it. Letter variables don’t, so 
every time we use an "а" instead of 1 we save & bytes, even zero 
as а-а saves 4 bytes. 51 of course stands for SET 1 and SET 2 
for Set 2 which will call the rountines at lines 98 and 99 
respectively when changing UDG sets. The аф array should be 
quite straight forward as to what we ere going to use that for. 
But what is this с% for? Well, try: 


CLS: PRINT c$ 


You get a line acrossed the screen at line 7. The unprintable 
characters 22, 7 and O at the start of the string tell the Basic 
interperter to do an АТ 7, O. 


Like all good Basic programs we will cram our most important 
SUBS into low line numbers. Lines 1 to 8 handle the print а 
scene routines with overprints as encoded per line 9000. Lines 
9 to 99 finish the actual routines and the switch graphic sets 
subs. I will give you that much of the program first and then 
talk about putting it all together. You won't understand the 
rational of lines 1 to В until after the МАР description. 


Most everything inside quotes is either UDG graphics or standard 
graphics or inverse symbols. Therefore. we are going to omit the 
brackets and use them only to indicate ап inverse character, 
е.0.. (:) means inverse colon. (5) means inverse regular graphic 
5. Add the REMs for now to remind you what things stand for. You 
can always delete them later. 


1 FOR м=а-а ТО =: IF м< (джс) THEN GO TO c :REM print routine 
LET vzv-gXc:NEXT w 
GO SUR (v+i+(zke AND и) + (а and (v=17 OR v=19) amd (s=b OR 
S=d))): IF w THEN GO SUR (w*gXd*a*(zXe and u): REM over print 

4 RETURN 


ам 


VA 
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5 CLS: INK а-а: PRINT c$: LET  uza-a: LET Н=а-а: LET v=CODE 
m$(y,x): GO SUB a: LET usa: LET v=CODE пФ (у+а, х): GO SUB а: LET 
ича-а: LET h-zXb: LET v= CODE т%(у.х+а): GO SUB a: LET uza: LET 
v= CODE m$(y*a.x*a): GO SUR a: RANDOMIZE USR 65251: INE g: 
RETURN: REM North 


6 CLS: INE а-а: FRINT c$: LET Н=а-а: LET  u-a-a: LET v= CODE 
m$(y,x*b): GO SUB а: LET uza: LET v= CODE пФ (у,х+а): GO SUB а: 
LET ч=а-а: LET h=bxz: LET у= CODE mé(yta,xtb): GO SUE a: LET 
ила: LET v= CODE m$(y*a,x*a): GO SUB а: RAANDOMIZE USR 65551: 
INK g: RETURN: REM East 


7 CLS: INK а-а: FRINT c$: LET Һ=а-а: LET u=a-a: LET v= CODE 
m$(y+b,x+b): GO SUB a: LET u=a: LET v= CODE m$ (у+а,х+6): GO SUB 
а: LET Н=2ЖЬ: LET uza-a: LET v= CODE т$ (у+Б,х+а): GO SUB a: LET 
uza: LET v= CODE m$(y*a,x*a): GO SUB а: RANDOMIZE USR 65251: INK 
g: RETURN: REM South 


В CLS: INK а-а: PRINT c$: LET hza-a: LET u=a-a: LET v= CODE 
m$(y+b,x)s GO SUB a: LET иса: LET v= CODE m$ (у+6,х+а): GO SUB a: 
LET hzz*b: LET uza-a: LET v= CODE тФ(у+а, х): GO SUB а: LET uza: 
LET v= CODE m$(y*a,x*a): GO SUB а: RANDOMIZE USR 65751: IN: g: 
RETURN: REM West 


9 RETURN 


In lines 9 to 97 all the things inside quotes аге UDG pr 
other graphics including underlines. Spacing with blanks is also 
critical. None of these lines are right justified in printing 
this book so you can count empty spaces from the line above. We 
also put a blank line between lines to make it easier to read. 


10 GO SUB $1: LET vzc: PRINT АТ v.h*d;"NO"; АТ у+а,Н+Ь; "LEMF"; 
AT v*b,h*as;"N  МОМММ"; AT v+c.h: "N N P ОММММММ": AT v*d,h: 

" LEM NMF 1414014"; AT v«e,hi"N LUQ OIJ KMEIJI": AT v*f,h; 
"ІК ILKIJLKIJ"; AT v+g,h+c: "LE IJ IJ": RETURN 


11 GO SUB $1: LET v-z; PRINT АТ у.Н; "ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ"; АТ уча, 
h: "HFFFFFFFFFFFFFFG": RETURN 


12 GO SUE si: LET v= а: FRINT АТ v,h;" LUJLJLJLUJLJLJ": AT у+а, 
hi"KLJK I I KLELJI": AT v+b.,h;"E Ik IJLULEKLJI"s АТ v*c,.h: 
" LKIJLJELKILKLUJ": AT v*d,hi"LUJLEKLJI ІШЕ LJ": RETURN 


5 GO SUB sl: LET v=g: PRINT AT v,hi" LJ. LUJ "; AT v*a, 
hs" TTT T T T TTTTT "1 AT v«b,hi" IUUJT TLUUJTTTT": GO SUB 99; 
PRINT AT v+b,h; OVER ауға 02 а" AT v+c,h; 

"Q Q Q": RETURN 


14 GD SUE s2: LET v=c: FRINT AT v.h+b: "Q UQ RST QU Q": АТ уча, 
В; "5 STR а а TSR": АТ v+b,h; "QARS Q STR Q Q": RETURN 


15 GO SUB s2: LET v=g: FRINT АТ v,ht+b:"_QQ":: GO SUE 51: PRINT 
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АТ v*a.h:"LE. IUJ":: GO SUR s2: FRINT "0": GO SUB si: FRINT АТ 
У+Ь, В; "Ц ";Х: GO SUR s2: PRINT "QQ"i: GOSUB si: PRINT "UK": 
RETURN 
16 GO SUB s2: LET v-f: FRINT АТ v.h*bi" "i TAB h4f*gi" "s AT 
v*c,.h*b; "О"; АТ vta,hs"Q QQ О JQ": АТ v+b,h+z+f: "0": GO 
SUB sl: РКІМТ AT у+а,Н+а;" OVER a:"N M QTLUJ. N M"; AT v*b.h*ei 
"ST QT": AT v*b,h*es:" "$5 АТ v*c.h*ds "E I ST": AT vtc,htz+b; 
ион; AT veb,htis"K I": RETURN 
17 GO SUB s2: LET v=z: FRINT АТ vahi" | _ 0 __ _": AT у+а,Н: 
"а 8 L" AT veb,hi" Q. | Q__ _": RETURN 
18 GO SUB si: LET v=z: FRINT AT v,ħ+i+d; "LUK: АТ у+а,һ+1+Ь5: "LE"; 
AT v*b,h*i*g:" LUE": GO SUB s2: PRINT AT v,h*i*c: OVER а; "О а"; 
АТ v*a,h*is" Q Q"; АТ v+b,h+f: "Q Q": RETURN 
19 GO SUB 52: LET у=9: PRINT АТ v,h*a: OVER а; "О O 0 0"; 
AT уға,һі OVER О "Q RS Q 0"; AT уға,һ;"0 ва O О RST"; 
AT v+c,h+b; "OQ OR QQ": RETURN 
20 GO SUB s2: LET vez: FRINT AT v,hi"RSTTT TTTST TRS": АТ v*a,h 
Os"R E TT TT RST"; AT v*b,h;"ST RST RST": GO SUB si: PRINT 
АТ v.h*d: OVER a;"UKIU  UKIU": АТ v*a,h:"LJ UKIUKIU LJ "s; AT уә ` 
stags" LJ. LJ. НЕТ": RETURN — 
21 GO SUR si: LET v=z: FRINT АТ v.hi"IJ_ -....LK": AT v+a.h 
HR IUUUUUE": GO SUB s2: PRINT АТ v,h*d; OVER a;"ST RS STT": 
RETURN 
22 GO SUB s2: LET v=z: FRINT АТ v.h: "АВАВАВАВАВАВАВАВ"; AT v.h: 
OVER a; "GHGHGHGHGHGHGHGH"$ АТ v+a,h; "HABABABABABABABG": AT v«b,h 
"6"; AT v+b,hħ+i+f; "H"; AT v*c,hi OVER ©: "HGHGHGHGHGHGHGHG": 
RETURN 
25 БО SUR sl: LET v=z: LET h=h-(a AND h): PRINT АТ v,h+e; "IJJ"; 
AT v,h*tf; OVER а;"Ц"; AT v*ta,hs: OVER Os: "MIJ": AT v*b,htzs "1114"; 
LET h=h+(a AND h): RETURN 
24 GO SUR si: LET v=g: FRINT АТ v.h*g: OVER а;"Т"; АТ v+a,h+d; 
"Јао LJ": АТ vta,h*tcs" 2 "s АТ у+а, Һ+сұ "Т 7 T"; AT 
v*b.h*ci" Ys RETURN 
25 GO SUB sl: LET v-g: PRINT AT v,h+i "LUJ"; AT v+a,h; 
" .LUEUUUJ E LUUJ"; AT v+b.h: "LUJ": RETURN 
26 GO SUB 51: LET vez: LET h=h+b: FRINT AT v,hs "LUJ SEES NT 
vta,h-*cs" LUE LUJ”; AT v+b.h+a: "LE LUJ": LET hzh-b: 
RETURN 
—— 


27 GO SUB sl: LET v=g: FRINT AT v,.h-*ii"LLUJ": АТ v+a,h; 
". LEU UU E LU J": AT v+b,h; "LUJ"; AT v*b.h*gs "LUJ": RETURN 


28 GO SUB sl: LET vez: LET h=h+b: FRINT AT v.h; "Lud L": АТ 
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vta.h-*dri"L К LUJ"; AT v+b.h+a: "L LUJ": LET hzh-b: RETURN 


29 GO SUB si: LET vsz: PRINT АТ v,hfi"3 ЗЕ": АТ v*ta.h*fi"Z Z 1"; 
АТ v+b.h+e;:"E(4) (4)Е(4)Е": RETURN 


50 GO SUB sl: LET v=i: LET h=h+i; FRINT AT у.Һ%”АС; AT v h: 
OVER аҙ" AT vahi". "ЕТ h=h-i: RETURN 


31 GO SUR si: LET veg: LET hzsh*i; FRINT АТ vh; "QAT"; AT Vta,hs 
"ST": AT v+b.hi"RT"; AT v*b,h: OVER as"_": LET h=h-i: RETURN 


52 LET v=f: LET h=h+i: FOR l=a TO b: ЕКІМТ АТ у%1,Һ;"(5)4: NEXT 
1: FRINT AT v+l,hi"27": LET h=h-i: RETURN 


33 LET v=z: LET h=h+i: PRINT AT Vebs"(4)7"s AT v+a,h; "21": 
RETURN 


54 LET v=f: LET h=h+i: PRINT AT У.П+а;"Т"; АТ v+a,h: "21%; AT v+b 
4Һ: "88"; AT v*tc,.h;"S(E)"i AT v+c,h; OVER а;"__": LET hzh-i: 
RETURN 


55 GO SUR si: LET v-i: FRINT АТ Vah+g: "(2)": RETURN 


56 GO SUB sl: LET v=z: PRINT АТ У, П++; "ММ"; AT vta, h*fs OVER а; 
"__Е": RETURN 


Lines 27 to 48 can be used for more scenes. 


49 RETURN 


50 GO SUR si: LET v=g: FRINT AT v. h*gs "МО"; АТ vta, hte; "ШЕМЕ"; 
АТ v*b,h*d:"N NOMNM"; АТ v*tc,h*c;"N МР ONO"; AT v*d,.h-*b; 

“Q LK NMF КЕ"; АТ v*te,.h*bi"R а ТОМ"; AT v+f,h+a; 

"NIJ R NOIJ": AT v«*g.h;"N БАК LJE P ЕМ"; АТ vtz,hs 

" LK. ІЛІК IJ": RETURN 


51 GD SUR sl: IF h THEN LET h-h-a: LET У=1+а: РАМТ АТ veh: 
"ACACACACACACACAC": AT v*ta,h: "ТАСАСАСАСАСАСАС T"; AT v*b.h: 
"ACACACACACACACAC": AT v+c, h: "ТАСАСАСАСАСАСАСАС"; АТ vtd.h; 
"BT T T T T T T T T"; ат vte,h;s"BDBDBDBDBDBDBDBD"; AT v+b.h; 
OVER а;"1": AT vtb,h*i*e:" К"; IF h THEN LET h=h+a: RETURN 


52 GD SUB si: LET v=i+a: PRINT АТ v.h*tbs" _ __"; АТ vta,h: 
"LK IJLKIJLE Id": АТ v*b.h:;" — LKLUJ IJ IJ": AT v«4c,.h; 

" IJELEK IJ IUU": AT v+d,h; "JEL СЕ IJ": AT v+e,h+b; 

"LKIJLE ІЗ "s: RETURN 


55 60 SUB si: LET v=i: PRINT АТ v,h*di"N"; AT v+a,h; 

"NN МЕ " АТ v*a,h*bs OVER а; "24: AT v+b,h: OVER 0: 
" TSSIUUJLUET T"; AT v*tc.hi" TSF T TT T T": AT ved,h; 

" RTTTTTT T": АТ v*te.hs" T T TN TO TT T"; AT vtf.hi" ЕК" 


GO SUB $2: PRINT АТ v*f.h*tb: OVER а;"@"; АТ v+f.h+i; "Q QQ": 
RETURN 
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54 GO SUB $2: LET v-i: FOR 1-0 TO d STEP d: PRINT AT v+l,h+b; 
"Q UQ RST QU Q"; AT v*l*a.hi"S STR Q Ü TSR"; AT v*leb,h; 
"QARS Q STR Q а"; AT v+1+c.hi"UQ R TRS U RSTU": NEXT 1: 
RETURN 


55 GO SUB sl: LET v=z+b: FRINT АТ v.h+d:"EE ЕЕЕ EE"; АТ v+a.h+ 
с; 


"E LUUUJ БЕ“; АТ v*«b,h;" .N M^ E": AT v+c,h; 
"E Е"; АТ vtd,htas"E_ .EE": AT у+е,Н+с; 
"IJ ..LK": GO SUB $2: PRINT АТ v*a,h*ds "0"; АТ у+а,Н+1+а; "a's 
AT v+b.h+a: OVER az "QQ RS Я"; АТ v+c,h+b;"RSTR ST"; AT 


v*d,h*di"TS TS"; АТ v+e,h+a; "Q"; AT v+e,h+e; OVER о; "0": 
RETURN 


56 60 SUB si: LET vzi: FRINT AT v.h*is" LJ "s: AT v+a,h+z; 

"а SS О"; АТ v+b,h+d; " _ R RP P"; AT м+с,Һ+с "Q T NN M M; AT 
vtd,h*c s"S_ TN N M М"; AT v*e,h*ci"S T"; АТ v+f,h+c: "КТ" 
AT v+g,htcs"T_T"s АТ v+z,h+as"LK IJ": GO SUB s2: PRINT АТ v+a, 
h+c: "RST"; AT v+b.h+es"ST"; AT v+d,h+g;: OVER аҙға aan a Я"; АТ 
у+е.Н; "ST S КӨТ К"; АТ v+f, hs "RT са Q"; АТ vtg, 
Һ+і+а: "RST Q"; AT v+g,h+g+b:"@ RST R": RETURN 


57 LET v=i+b: FOR 1-0 TO c STEP с: GO SUB si: PRINT АТ v+l,h+c; 

"LJ. LUUJ"; AT v*l*a,hi" LUUJ — LJ "i: АТ v«l*b,h; 

"LJ | LUUJ _14_": GO SUB s2: PRINT AT v*l,h*b;"Q"i AT v+l,h+i+ 
аз "0": AT v*l*a,hi"U"; AT у+1+а, Н+а;: "Ц"; AT v+l+a,h+i+c:"Q"; АТ 

v*l*b,h*di"Q"; AT v+l+b,h+i; "U Q": NEXT 1: RETURN 


58 GO SUB sl: LET v-i*a: FRINT АТ v,h*e:"ELEE": АТ у+а,һ+а "КЕЕ 
"; АТ vtb,h*b; "LKEEE": AT v+c,h+d; "ЕЕЕ"; АТ v+d,h+b; "E ЕЕ"; АТ 
v*e.h*tci"M ІЛЕ"; АТ v+f,ħh+d; "E IJE"; АТ v+g,h+e; "M MJ IJE": 
GO SUB s2: PRINT AT v+b,h+a; "0"; AT у+с.Н; "OQRS": AT v+d,h+c; 
"ST": АТ v+e,h+d; "ST"; AT v+f,h+e; "TST"; AT у+9.Н++: OVER а; 

"T S": RETURN 


59 GO SUB s2: LET v=z+b: FRINT AT v,hi"IJ Q О"; АТ vt+a,hs 
"EL Q RST"; АТ v*b,h; "MNA RS IJ TSIJ": AT vec, hte; 

"KT KL EL"; АТ v*d,hi"RT IJ FMNG QMN": АТ v*e,h*ci 

"EL RST РР"; AT ve-f,.h*bs "QNN Q TRS": RETURN 


60 LET у=1+Ь: FOR 1-0 ТО d STEF c: GO SUE s2: PRINT AT v4l,h: 
"RSTTT TTTST TRT"; AT v«lea,h;"R R TT TT RST": AT v«l*b,h; 
"ST RST RST": GO SUB si: PRINT АТ v+l,h+d; OVER a;"UKIU UEIU 
"г AT vel*ta,hi "LJ UKIUEIU LJ "3 AT v*l*b.h:" LJ. LJ. UEI”: 
NEXT 1: RETURN 


61 GO SUB $2: LET v-i: FOR lea TO + STEF c: PRINT AT v«l,h: 

"ST RST RS": AT v«l*a,h4ci"RS RST К"; АТ v+1+b.h+c; 
"TR TRS": NEXT 1: GO SUB sl: FRINT AT v«l,hi"IJ. __ LE"; 
АТ v*l*a,h*ci "IUUUUUE": GO SUB $2: PRINT АТ v+l,h+d; OVER a; 

"ST RS STT": RETURN 


62 GO SUR s2: LET v=z+c: FRINT АТ v,hsi" АВАВАРАВАЕЙАВАЕ": AT v.h: 
OVER as" GHGHGHGHGHGHGH": АТ у+а,Н; OVER О; "АВАВАВАБАВАЕАВАВ" ; 
АТ У+а.Н; OVER а; "Б"; АТ у+а,һ+ї+# "Н" AT v«b.h: OVER О; 


^ 
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"CAEABABABABABABd": АТ у+с,Н; "АВАВАЕАВАВАРАВАВ"; АТ v«d.h; 
"CDCDCDCDCDCDCDCD"; АТ vte,h;"EFEFEFEFEFEFEFEF": RETURN 


65 GO SUR s2: LET уші: FRINT АТ v,hte; "TS": AT v+c,h; 


"TS RS"; АТ v+d,h+as"MTIJ__ "i АТ v«b,h*bs "MI ТІК"; AT 
v*tc,.h*tcs "M TIJ"; AT v+d,h+d; "MTTJIJ"; AT v+e,h; 
“an MJ IJ | /« "s АТ vef,h*ds"IJTT S TLE"; AT v+g.h+£f: 


"MT SU ТІЛ"; AT v*z,h*gi"M SJ TTJIJ"; AT v«c.h4fi OVER a;"T"; АТ 
v*te,h*es" "si AT veg,h*itdi"T": AT vee,hsi;"S": RETURN 


64 GO SUB si: LET v=i+b: FRINT AT v,h:i"RLJ R RLJ S К"; AT м.н; 


OVER а; "Р F В F"; AT Ш "SAT vta.h: 
"TT 7 TT TT 7 ТТ"; АТ v+b.hs "TT T88TT ТТ"; АТ v+c.h: 
"TT T88TT TT": AT v+c,h;" "; RETURN 


65 GO SUB s2: LET v=i+a: FRINT AT v,h*ci"U"s АТ v.h*ti-*ci"Q": АТ 
у+а.Н; "Ч U и"; АТ v+b,h:" а а "ç АТ vtc,hs 
" 18: AT уче, ТО а а "7 G0 SUR sl: FRINT 


AT v+b,hte; OVER ar"E"; АТ ужб, ++: "Е"; AT v*d,h; 
“U UU UULU UU"; AT vef,h*Ci"E"3 AT v+f,h+i+a: "E": RETURN 


66 GO SUB si: LET м=і+а: FRINT AT v,h*i*f;"LK": AT v+a,h+i+d; 
"LENN"; AT v*b,h*i*b;"LEL М"; АТ vtc,htis"LE КОМ" AT v+d.h+g: 
"LKL ММ"; АТ v*e,h*es"LK К"; АТ vf htc" LE LE N N”; АТ v+g.h+a 
"LE L М N"; GO SUB s2: FRINT АТ v+a,h+ti+d: "Q"; АТ v+b.h+i+a: 
"п"; AT v+c,h+i+g; "U"; АТ v«d,h*g:s "U"; АТ v*re,h*itcs;"Q"s АТ vef, 
h*csi "U": RETURN 


67 GO SUB s2: LET у=1+а: PRINT AT v,h+c; "U"; АТ Vahtites "G's AT 
у+а.Н;"@ U U"; АТ v+b,h+c; "Q 0"; АТ v+c,h; 

" __ _ AT v+e, h+c: "U a 00": GO SUB si: FRINT AT 
v+b.h+e; OVER а: "Е": AT v*b.h*i*f;"E"; АТ v*d,h; 

"U UU ШАЛА) UU": AT vtf,h*Ci "E"; АТ v+f,h+i+a; "E": RETURN 


68 GO SUB 51: LET v-ita: PRINT АТ vyhtitfs"L"3 АТ v+a,h+i+d; "LE 
$ АТ vtb,h*gs"L LE"; АТ v+c,h+i:"LELE"; AT v*d,h4gs "L LE": AT 
vte, htf "EL"; AT v+f.h+cr"LE К": GO SUB s2: FRINT AT v+a,h+i+c; 
"U's AT v*tc,h*z:i OVER а: "Ц U"; АТ v+e,h+d; "U U": RETURN 


69 GO SUB si: LET v-i*a: FRINT AT v,h;" — — ____": AT va, 
hí" T тсасаст T": АТ v+a.h: OVER af"____ _": AT vtb, 
h: " "s АТ vtb,htitbs"_"3 AT v*c, he" TNM -RERM ACNM EI АТ v+c.h; 
"_"{ АТ ved, h: “N MTN MTN м"; AT v*e,hi" TB TT 8 ттв T": AT 
v*tf.h:"T8 TT 8 TT8 T": АТ vecf,hi" EE Е E ": RETURN 

70 GO SUB sl: LET v=i+d: LET h=h+g: FRINT АТ v,h*di" "ij АТ уча, 
Һ+с: "А С"; AT v+b,h+b; "N М"; АТ v+tc,htas"A Е O"; АТ v+d,h; 
“М МР"; АТ v+d.h: OVER а" АС"; LET h=h-g: RETURN 

71 GO SUB sl: LET v-z: LET h=h+f: РБІМТ АТ v.h*bs" "s: АТ vta,hta 
} "МТО"; AT v*b.h*a:"TTF": AT v*c,h*as "TT T"; АТ V+d.h:"QQ T"; 
АТ v*e,h:"RSE T"; АТ у+#,Һ "TS O"; АТ v*g.hi"TSO S": AT v+z.h: 
"TSF S": АТ у+1,Н; OVER а; "МШК": LET h=h-f: RETURN 
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72 LET v=g: LET hzh*g: FRINT АТ v,h*a;"Z": АТ у+а.Н:" (5)85": FOR 
l=b ТО г: FRINT АТ v«l,.h*a:"(.0)": NEXT 1: PRINT АТ v*l,hs:"2(ID1" 
: LET hzh-g: RETURN : КЕМ the (1) is inverse I 


75 GO SUB si: LET у=1+6: LET h=h+g: FRINT АТ v.h*ci "S": АТ v+a,h 
+a; "28881"; AT v+b.h+a:"(,+++.)"; АТ у+=.Н+а; "88888": АТ v+d. h; 
" (5)88(1) 885": LET hzh-q: RETURN 


74 GO SUE si: LET vzf: FRINT АТ v.h*zi"S"s AT у+а,Н+д; "S"; АТ 
v+tb,h+f; "11822"; AT у+с,һ+с;"111(.....)22О2"; АТ v+d.h+c:; 
"B(+)8(+)8(+)B(+)8(+)B"; АТ v*e,h*ci" (S)BB(T)BB88(-(T)8(S)"; АТ 
v*f.h*ci"888(T)8888(T) B8"; АТ v*tg.h*ci "8 (+111222+)8"; AT v+z,h+ 
с; "88 (52253555 88"; АТ vsi.h*Ci"88 (5):S:5 BS"; АТ v+VAL "10", h+ 
C;"88 (5):525 88"; v+VAL "10"; OVER as" _ "s RETURN: REM (S) 
& (T) are inverse UDG’s 


75 GO SUE sl: LET у=1+а: FRINT AT v.h*ci"NMACAC": АТ v*a.h*b; 


UN M TT / "s AT veb,h*b; TB8 TTNM М"; АТ v*c,.h; 

"NTTBB8 DN M. M"; AT v*d,h:"T T8 ТТТ T"; АТ v*e,h; 

" ЕТВ ET Т"; АТ vtf,h;s" NN "% АТ v+g.h; 
"UTTTTTTTTTTTTTTTT": АТ v«*g.h: OVER as "UULILIUUKUULIOOUUUU" 3: АТ уға 
һ+ї;"_"; АТ v+c,h+b;"_ — TB ғр АТ v*d,.h*itcsi" "s АТ v*e,h 


+9;"_": RETURN 


76 GU SUB sl: LET у=а: FRINT АТ v.h*gi "LJ": АТ v+a.h+e: 
"LECA)7IJ"; АТ v4b,h*ci"LE В 8 IJ"; АТ v+c,h+a; 


"АСТ ТС"; AT v*c,h*i*d: OVER а;"А"; АТ v+d,h+a; OVER О: 
"T T8 8 88 T T"; АТ v«e ,h+a;:"T T T T"; АТ v+f,h+a; 
"T T88 88 ВВ T T"; АТ v+g,h+a 1"EDT. 88. TD"; AT vtg.h-*c: 
OVER а; "_ В"; АТ v+z,h+b; OVER Os" (Ф) N Q"; АТ v+i,h; 
ao [TINO Rune "3 АТ v+i+a, h; "TTTTT ТТТТТТТТ" АТ v+i,h+b; 
OVER a;" "р AT у+ї+а,һ;"_ N ": RETURN 


Lines 77 to 97 open for further graphics 


98 PORE 25675,88: FOKE 236476, 255: RETURN 
99 FOKE 22675,159: FOKE 25672, 254: RETURN 


Lines 1-8 are the print routine which is entered at lines 5 ta 
8. These lines are the routines to print the N. E, 6 and W 
scenes respectively. These lines in turn call the subroutine at 
line 1 which sorts out the scene to be printed depending upon 
the vaule of u which is used as a "print near scene flag" when 
on and prints a far scene when off. Line 1 actually decides 1+ 
the scene is an overprint scene or not. To save typing I didnt 
put in REM statements for the actual scenes. Lines 9 to 48 are 
for the far scenes while lines 49 to 89 are for the same scene 
printed near. Lines 90 to 97 can be other scenes. 


Each picture to the screen is a composite of 2 far scenes and 
two near scenes where the actual point on the map is the lower 
right corner scene. If you would visualize the following grid: 


— 
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о.о 0,1 1.2 
1.0 1.1 1,2 
2,0 2,1 2,2 
Being at point 1,1. and looking north, we print scene О,О in the 


upper left background, scene 1,0 in the lower left foreground, 
scene 0,1 in the upper right background and scene 1.1 in the 
lower right foreground. This is done Бу line S which will print 
all north scenes. 


Looking East from 1,1 we would use line 6 to print 2,0 in the 
left background, 1,2 in the right background, 0,1 in the left 
foreground and 1,1 in the right foreground. 


For South we merely select line 7 жо print 2,2 in the left 
background, 2,1 in the right background, 1,2 in the left 
foreground and 1,1 in the right foreground. 


For West we repeat the same idea with line 8 to print 2,0 in the 
left background, 1,0 in the right background, 2,1 in the left 
foreground and 1,1 in the right foreground. 


Notice that 1,1 is the lowest we can get. This leaves us always 
with background scenes. But we have another problem. If we are 
holding our map in an array called ТФ (у.х), the lowest value of 
y is 1, not zero. Similarly for x. Therefore, we have to do what 
in mathematics is called a transposition of axes. Position 1.1 
is actually held in m$(2,2). Or to put it simply, we have to add 
1 to both x and y when we read values from m$. Got it^? That is 
why the O,O position actually becomes 1,1 when both y and x are 
1 as given in the first part of line 5. 


^ look at lines 5 to В will show you that we use v to hold the 
peeked value of the Map array held іп M$. The horizontal print 
position is set to zero for left printed scenes and to 16 for 
right printed scenes. U is set to zero for background and to 1 
for forground. 


After getting the scene number, the direction lines call the 
subroutine at line 1. If the number held in v is less than 20 it 
knows that the scene is a normal scene and goes to line = and 
adds 9 to the number and prints that scene if u is off. It thus 
would jump to lines © to 29. If и is on, it adds another 40 and 
prints a Near scene from lines 49 to 49. Notice that there are 
2 Offsets: the first of 9 and to get the right line number of 
far scenes after the first 8 lines of the program, the second of 
40 for the far scene. Notice that as soon as а jump is made ta 
the scene line, у is reset to the vertical line to start 
printing at and as such does double duty as a variable. 


Scenes in line numbers ZO to Té and 70 to 75 are what I call 
special event scenes and thus are scenes to he overprinted over 
a previous scene. The lines 1-2 For loop determines which two 
scenes these are from the value of v. How can this be done? 
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Think about it. We have 21 scenes to be printed with each over 
scene. If the scene at line 20, which is scene # 21 (subtract- 
ing off the 9 offset), we need another 20 numbers beyond this ta 
designate the background. In other words numbers 21 to 47 ara 
used to indicate scene 21 + the scene # of the background. 
Similarly, numbers 42 to 62 are for scene 22, 63 to 85 for scene 
22, Ва to 104 for scene 24, 105 to 125 for scene БЕ, 126 to 146 
for scene 26 and 147 to 157 for scene 27. 1 emphasize this in 
Case you plan to add additional scenes on your own. 


With this in mind, let's start doing an edit routine to adjust 
our scenes and enter a playing map. We will start with the Menu 
of the various scenes. The numbers listed in line 190 are with 
only the overprint offset. 


190 CLS: FRINT TAB i; "MAF SCENES"'" © Open plain", "16 Road 
(horiz)"." 1 Mountain","17 Road (vert)"," 2 Forest","18 Fath 
(horiz)"," 5 Hills/Dunes","19 Fath (vert)"," 4 Cliff", "20 Small 
town", " 5 Swamp","21 Cave"," 6 Lake","42 Monolith"," 7 Tablelan 
d","63 Tower"," 8 Bog/Moor","84 Keep"," © River", "105 Castle", 
"10 Desert", "126 Farmhouse", "11 Rough sea", "147 Inn", "12 Shore 
& sea"? "j3 Fine ҒоғевЖ"” "14 Crevass"'"15 Walled Town": IF 
Q$z5"h" THEN RETURN 


The last statement in the line is not part of the menu but is 
used by the rest of the edit program which is to follow. You now 
could print a few test scene without the aid of lines 1-8 with 
а direct entry line that would go something like this: (Since v 
is not initialized in line 9000, do a LET у=а if you are doing 
this for the first time.) 


CLS: Print c$: Let h=0: GO SUB (9 to 29): GOSUB (49 to 69): Let 
h=16: GO SUB (9 to 29): GO SUB (49 to 59) 


The numbers in () give you a choice of those lines. For over 
printing a scene add: GO SUB 30 to 26 for a far scene or 70 to 
76 for a near scene at the right  spot--either left or right. 
Don't use the numbers given on the scene menu as they are 
encoded with the offset for the assembler. 


Why don’t we finish the Editor routine and then explain it Бу 
entering an actual Map after we have given the routine. 


100 PRINT " ASSEMBLE" "Hit ENTER to abort" 

102 INFUT "(A)ssemble or (E)dit?":r$: GO TO 100 «(d AND r*#="a" 
OR r$="A") %(5920 and r$="e" DR r$="E")+ (800 and r$z"") 

104 INFUT "Width of landscape grid?": LINE r$: GO TO 106 (754 
AND г$="") 

105 LET kzVAL r$ 

106 INFUT "height ": LINE r$: GO TO 109 -(791 AND r£z"') 

1907 LET r=VAL r$ 

108 DIM Mf(r,k) 

110 LET xmin=a: LET ymin=a: LET xmax=r-a: LET ymaxzk-a: IF (аж 


LA 
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"" THEN GO SUE VAL 4%” 
112 60 SUE 6020 -(20 AND г%="е" OR ғФ-"Е"): GO TO 900 

(Line 190 will be here) 
200 PRINT " SAVE DATA ": PRINT #0:"Landscape complete?  (y/n)": 
PAUSE ©: IF PEEK 22525-1323 THEN GO TO 900 
201 INFUT "(T)ape or (Disk? "sr: IF r$-"d" OR r$-"D" THEN GO 
TO 210 
шо: IF PEEK 22556:289 THEN LET m$(r,.k-b)zSTR$ y: LET  m$(r,k-a)- 
STR$ x: LET m$í(r,k)-STR$ s 
205 INFUT "Title?"' LINE r$: SAVE r$ DATA m#(): GO TO 900 
215 INFUT "Title?"': LINE r$: FOR t-LEN r$ TO 10: LET r$=r$+" '; 
NEXT t: LET r$zr$-".var": MOVE "r$",: GO TO 900: REM pad out 
name to 10 spaces and then save all variables--you can't just 
save m$ array 
ЗОО FRINT " LOAD DATA": LET q#="Z01": GO TO 104: REM m$ must be 
dimensioned if it isn’t 
501 INFUT "From (Т) аре or (Disk? "sq: IF q$-"d" OR д%="О" THEN 
GO TO 510 
SOS INFUT "Title? "srt: LOAD r$ DATA m$() 
308 LET yzVAL m$(r.k-b): LET x=VAL m$(r,k-a): LET s-VAL m$(r,.k): 
GO TO 700 
310 INFUT "Title? "ir$: FOR t= LEN r$ TO 10: LET r$-r£-" ": NEXT 
t: LET r$-rf$-".var": CAT "r$".: GO TO 900 
400 GD TO 5000 
200 FRINT ''"' "Use GO TO 900 to restart": STOF 
900 CLS: FRINT ""OFTIONS"''""1 Assemble/Edit""""2 Save Data"'" 
"S Loag""""4 View"? * "5 Stop"''"Fress option number" 
901 FAUSE О: LET ғ%-ІМКЕҮ%: IF r$>="1" AND r$zz"5" THEN GO TO 
VAL r$*100 
4999 STOF 
5000 LET s-a: LET x=a: LET ула: GO SUB 5200 
5001 PAUSE О: LET ғ%-ІМКЕҮ%Ф: IF PEER 22556-12 THEN GO TO 900 
S005 IF r€="c" THEN GO TO 5200 
5010 IF г$="м" THEN GO TO 5100 
5020 LET s-(1 AND r$z"7")-(2 AND r€="8")4+(5 AND r$2"5")-(4 AND 
r$-"5") 
50370 GO SUB 5200: GO TO 5001 
5100 PRINT #O:"AT 4%; СУУ", Gods "Move which way? Use crsors ": 
FAUSE О: LET rcr$-CHR$ FEEK 22556 
5105 IF (r$«4CHR£€ 52 and r$5CHR$ 56) THE GO TO 5100 
5110 LET y=y+(a AND r$="6" AND yzymax)-(a AND r$="7" AND у>утіп) 


5120 LET x=x+(a AND r$z"8" AND xzxmax)-(a AND r$="5" AND x^xmin?) 
3130 LET r$z-"": GO SUB 5200: GO TO 5001 
5200 IF m$(y,x)2" " THEN CLS: PRINT "loc "зур", "gxi"; view "sat 


(8):" Empty": RETURN 

2210 GO SUB des: PRINT #О АТ O,Os"loc "iyi",."iui": view "аф (в) 
: RETURN 

5200 LET ру=а: LET рх=а: 60 SUE 190: FRINT АТ  19,0;"Coordinates 
: "руз іру; “Use cursors to change start'"^"then press SPACE" 

5201 IN INKEY$z"" THEN GO TO 5501 

S302 LET ричрхж(ІМЕКЕУҮФ-"8" AND pxzxmax)-(OINEEY$-"5" AND рхо>хтіп) 
$2023 IF INKEY$=" " THEN GO TO 5215 

5204 LET py=py+(INEEY$="7" AND py =pmin)-CINEEY$="6" AND pyzpmaz) 
DIOS PRINT АТ 19,12;" "і AT 19.12:pys". "spi 


(A 
к 
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nd 
5206 РОК 12a TO iXb: NEXT 1: GO TO 5001 

5215 ET у=ру: LET х=рх: GO SUB 5210: GO TO 5001 

6000 FOR ysa TO r: FRINT "line "iyi": "s: FOR ха TO (ЕМ(т%(у): 
PRINT CODE m$(y,x)s"."s: NEXT x: PRINT "^:NEXT y 

6001 INFUT "Do you wnat to change any picture element? (y/n) "; 
9% 

6002 IF д%="у" DR g$="Y" THEN GO SUB 6050 

6010 RETURN 

6020 CLS: FRINT "Enter H for help screen"; FOR y-a TO r: FRINT 
"line "sys" "sg: FOR x=a ТО LEN m$(y): INFUT "coord: " (у) р", Ы; 
"110%: IF аФ="Һ" OR q$z"H" THEN GO SUB 190: INPUT "coord: "3 (y); 
рр" “sq: CLS: PRINT "line "Sys", "snn Ms 

6025 LET t=VAL q$: LET m$(y,x)=CHR® t: NEXT x: NEXT y 

6020 RETURN 

6050 CLS: LET g#="": GO SUE 190 

6055 INFUT "What у? "sy: INPUT "What TKI ТМРУТ "Coord:":(y); 
"ОХ" Now:"(CODE m$Cy,:2023" What new value? "sat 

6056 LET t=VAL q$: LET m$(y,x)-CHRS t 

6060 INFUT "Another? (y/n) “sr: IF r£-"y" DR r£$-"Y" THEN GO ТО 
6055 

6070 RETURN 

8999 STOP 


Let's start at the menu at line 900. It Gives the option of: 


1. Assemble/Edit the scene map 
2. Save the map to Tape or Disk 
5. Load a map from Tape or Disk 
4. View various map scenes 

5. Stop 


Notice the satatement of never using run to restart or we lose 
everything we have already done including our number variables. 


The Assembly routine should only be used to initialize a new map 
or to start over a map. Edit is used to change the picture in a 
certain position on the map. It is suggested you draw your map 
оп a piece Of grid paper and encode it. Finally use the editor 
to enter a scene. If you make any errors entering the numbers 
make a note of the locations and enter Edit to change them. 


Let's do a typical map. I picked a 25 wide by 18 deep map. This 
includes the spaces around the edge as discussed earlier. On ту 
original design I chose the following single letters to 
represent the various scenes. Some are quite obvious: 


Cliff 

Bog _ 
Sea t shore — 
Road horiz 

Small town 


Hills/Dunes 
Tableland 
Sea м waves 
Walled town 
Fath Vert 


Forest 
Lake 
Desert 
Crevass 
Fath horiz 


Mountain 
Swamp 

River 

Fine forest 
Road Vert 


F) U 2 i < 
А < ог т 
+< DT 
Or NM m 


0 
E 


Cave N Monolith Tower Е Keep 
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X Castle G Farm House I Inn 


Ihe Ar Ey Yu Ze We Эу Ta 4, Q and б are not obvious as I ran out 
ОҒ letters. I have also separated the Overprint scenes from the 
regular ones to remind me I have to add a background to them as 
well. 


Now for the Map with spaces for easier reading: (Blanks are open 
plains) 


1 6 11 16 21 

1 ҮҰҮМММ МММММ MMM MM ммммм MM M M M 

2 Y YHHH HHH VH HMHC HFNHH HHCHMHM 

3 Y H РР РРР V RMFF РРРВб Жн М 

4 Y H FF FF TRI23 KIRII FHEEM 

3 Y H P GF F RRRRR RRRA4F MHEEM 

6 Y H IR F FFF G RH ХМНЕМ 

7 YHHW1 11 1 ЕЕ FFFFG а ЕК ЕЕЕНМ 

в УУКЕЕ RRRTF ЕЕЕЕЕ GF КЕЕММ 

9 YSSSS 6 RF F FFF FF ЕЕННМ 

10 ҮББЕБ SE R FFF ы ЕУЕНМММ 

11 YSBBS S SL T I L QF умсмм 

12 Y SBE RE FS RRRRR SR DD NVDDM 

3 YEE HHH ЕК B ЕВ DD DAADM 

14 Y EEEE HH RA BRRGA ADADM™ 

5 Y Y Y Y EE H R 4D BHAW DDDHH 

16 Y YHHH ЕЕ HH HIR4D DXDAA ADCHH 

17 Y MMM MEEYY YHEDD HHHHH HHHH H 

I have to explain about the horizontal and vertical road and 
path. These are encoded as per a NORTH map. The print routine 
will reverse them for an East or West scene. Neat? You will also 
note the lack of the use of the sea with shore scene. It just 
didn't look good and is one of the scenes that needs work. While 
we are on scenes needing work, there also are combina- tions 
which have a problem between the left and right halves which 
leaves something to be desired and needs more work. AS I said, 


a diamond in the rough--not quite done. 


Notice that the map contains sea on the west and mountains on 
the North and partly down the East side. The SE corner contains 
a desert with sand dunes blocking the way. The South allows for 
some further expansion as a bay of the sea comes into the SW 
corner so that I could expand the Map at a later time--like Say 
in another load of another map. When designing maps make sure 
that you don't change scenes too rapidly. Forests have to be big 
and so do plains and farmland. Fine Forests are found in the 
North and other forests further south with jungles іп the 
tropics. Deserts have tablelands and sand dunes associated with 
them and all moutains have foothills before you get to them. 
Cliffs and hills are associated with the shores of oceans and 
seas. Swamps have bogs associated with them. 
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We go on to the encoding of the map. We have to remember the 
adding of the background values to the special event squares. 
Since the numbers will range from © to 167 I have trouble 
printing it in 64 columns for this book. We will split it at the 
15 mark and do it in two sections. 
Line/Column © 10 15 

1 11 111111 11 1 1 1 1 1 1 1 

2 1111: Е = š 14 2 о 2 1 = 22 

3 115 0 1515125 13 13 О 140 9 1 13 13 

4 11 5 © 13 1215 130 o 63 9 18 18 18 18 

5 115 0 О 13 1:9 13 O O 2 9g 9 9 9 9 

6 115 0 о о о о о 1479 2 2 2 2 0 

7 11 3 3 15 18 18 1818 9 2 2 2 2 2 129 

8 11119? F 9 9 9 9 67 2 2 2 2 = 2 

9 115 5 5 5 5 о 9 2 o о 2 2 2 0 
10 115 5 8 5 5 B o 9 о о 2 2 2 0 

11 15 ваз 5 о OQ S 9 650 147 O 0 

12 115 8 8 8 O о о 8 5 9 9 9 9 9 

13 114 4 0 o Q oO 3 z $5 9 84 о о B 
14 114 4 4 4 Q о о 5 59 18 о оо | 
15 11 11 11 110 4 4 Q O з 0 9 18 10 0 

16 111111113 О о 1260 = & 147 9 18 10 

17 11 11 5 3 5 4 4 © = 3 x 3 10 10 18 

18 111 1 1 1 1 4 4 11 11 11 74 4 10 10 
Line 14 20 25 

1 1 1 1 1 1 1 1 1 1 1 

2 5 13 555 x 5 5 48 1 1 

$ 15 15 129 145 19 19 3 1 1 

4 97 18 9 18 18 153 4 4 1 

5 99 9 18 13 1 3 4 4 1 

6 о 1260 9 18 151 25 4 1 

7 o 20 © 2 9 2 2 2 = i 

8 o OQ о 128 2 2 2 L 45 1 

9 а о o 2 2 2 2 X T 1 

10 о 15 о 2 14 2 5 1 1 1 

11 6 0 o 20 2 141 106 1 1 

2 5 B 0 10 10 10 52 14 10 10 

15 9 8 о 10 10 107 7 10 1 

14 8 9 9 20 7 7 107 101 

5 о 8 = 7 15 10 10 23 

М 


1 

1 
hb C4 og 
ма td 
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We can now use the assebly portion of our editor program to 
enter the map. We can edit anything we want to change with the 
edit section as long as we know the coordinates. Please note 
that the coordinates start with 1,1 not 0.0. The program is user 
friendly in that it gives you the present value in the square so 
that if you happen to pick the wrong coordinates all you have to 
do is enter the same unchanged value and try one of the 
coordinates one removed from it. 


The view section of the editor program (lines 5000-5400) allows 
you to view any scene. The cursor keys will allow you to view 
North with up, South with down, East with right and West with 
left. To move to new coordinates one uses an "m" and then the 
cursor keys. Once moved, the scene of the new coordinates is 
displayed. Thus once your final map is set you can delete 
everything in the editor except the 5000 lines. This secton of 
program can be kept in your own game program and does every- 
thing for you. Well almost everything. Since part of ап 
adventure is getting lost, as it is up to the player to keep 
track of where he is, you sould delete the coordinate printing 
sections, and, unless they have a lode stone, the direction 
printing as well. 


Of course all of this is redundant for those Of you with the 
disc or tape of the programs as all you have to do is load 
"Adventure". The demo map is already included and the program is 
pointed at the editor menu. 


Things left to do for "Adventure": 


As I have already mentioned, the program is not done. It is not 
an adventure. It is just the scene portion of an adventure and 
even here the graphics are not complete. For example, the 
graphic scenes written so far are all outside adventure scenes. 
Generally at the special events опе enters the cave, keep, 
tower, castle, inn, town or whatever. These interior scenes are 
not included and would have to designed апд entered at the 
available line numbers mentioned earlier. You of course would 
not use a horizon nor would you of necessity need a near and far 
version of a scene. Since the present ағғарһісе are generic, it 
is possible to design these interior scenes without designing 
any more LUDG's. 


Some typical cave or dungeon scenes would be: 


Steps up and down 

Tunnels going ahead and to the right or left. 

Side entrances to tunnels 

Vast rooms with special features such as an underground 
river with a waterfall with stalagtite ceiling. 


Butte 


Typical rooms for an inn would be: 
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1. The room for the general public where drinks and food 
are served. 

. Kitchen 

. Bedroom 

Steps up and down 

. Storage rooms. 


CH P iA F) 


Some of these same rooms can be used for towers. keeps and 
castles although you would have to add the round tower rooms and 
an armory. One outside scene I forgot was the ruined keep, 
tower, castle or whatever. Rooms of rubble would have to be 
added for these as well. 


Large towns and cities require: 


1. Small narrow streets with buildings on both sides and 
Occasional doors to shops and/or private homes. 

2. If you have shops. internal shop scene. 

5. If you have a church (not necessarily Christian), you 
need an interior altar scene. 

^. If you have a kings castle, a throne room is necessary. 

5. ñ general square or outside market scene is a place for 
a lot of interesting events. 


Remember in all of this that you design a general scene. You 
don't have to add the shapes of people to these scenes as you 
always have 4 lines of script below the scene to describe 
anything special that is going on such as discovering а chest, 
running across a group of people or a monster or two, a horde of 
treasure, etc. 


To do just the graphics for this, one has to modify the routines 
at 5000 probably adding an enter command which would jump to а 
subroutine to handle a new set of maps which would describe the 
sequence of scenes inside whatever you are in. Structures like 
castles, inns, keeps and towers and particularly, dungeons have 
levels so that when one goes down or up a level, a new map may 
be necessary. 


By using a monster/treasure map (probably generated randomly so 
its different every time you run the program) especially when 
inside dungeons etc., you can manage everything. Here one of the 
big advantages of disc drives can come in handy as you could 
just load a new variable table replete with new sets of maps and 
string arrays of text from inside the program and continue to 
have the program run. This is not possible from tape as someone 
has to start the tape recorder and possible rewind a tape now 
and then. One reason why we want to keep the graphic section of 
the program as compact as possible is that one needs enough room 
for everything else. Monster graphics could be designed to һе 
smaller than scene graphics and would always be written in the 
extreme foreground over everything else. 


We have designed the present graphics to be white on black since 


—^ 
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they are primarily line graphics. There of course is no reason 
to do this and one could use various different paper colors as 
background if опе desired. Remember, however, that paper 
graphics go by character space. Just doing the lines in 
different colors doesn't work too well. Using wide splashes of 
paper color acrossed certain areas could be done. 


The ultimate in compactness of course is to put all the scenes 
in code. This time its not for speed but to save space. With the 
full editor in place along with the 25x18 map the present 
program still leaves 24k of free space for other things which 
shows you something about how efficient our squeezing technique 
has been. We leave it up to the student interested in writing 
adventure programs to improve this shell program revising it as 
he/she sees fit. 


Obviously, the present graphics won't do for a space Odyssey but 
the idea of generic type UDG's could be used to design 
practically any scene one wants. You of course could get rid of 
the tree, pine and cactus graphics and replace them with other 
exotic life forms, planets, suns and star groups as well as 
distant space ships. The line graphics would be reserved for 
interior rooms of space ships etc. 


The whole idea of this program is to give you a general idea оп 
how various effects can be achieved and get you to thinking. Let 
your imagination go a bit wild and do something creative in 
generalized graphic routines for a change. Аз you can see, you 
first get it right in Basic and then cast it into the unbending 
mode of machine code. Designing something like this right into 
machine code would be a bit horrendous. Remember that in code 
most of your program is going to be strings of print data called 
from an address lookup table of some nature. 


Раде 242 Advanced 2068 Machine Code Vol. | Chapter 8 


^ 


Chapter 8 Advanced 2068 Machine Code Vol. 1 Page 243 


EIBLIOGRAFHY and COFYRIGHTS 


Corcoran, V. C., and Braniqin, М. H., "Timex Sinclair 2068 
Fersonal Color Computor Technical Manual", Time Computer 
Corporation, Waterbury, СТ 06720 $25.00 


Dreger, Dr. Lloyd H.. "The Timex/Sinclair 2068 ROM Manuscript", 
S.M.U.G., Box 101, Butler, WI 52007 (с) 1985 
$16.95 -$2.50 S&H 
Dreger, Dr. Lloyd H., "Introduction to 2068 Machine Code", 
S.M.U.G., Box 101, Butler, WI 52007 (c) 1986 
$16.95 -$2.50 S&H 


Franson, David, "Extended Faint" S.M.U.G., Box 101, Butler, WI 
53007 (с) 1987 $19.95 +S&H 


Hayes, Camron, "Timachine", Novelsoft, 106 7th St., Toronto, 
Ontario, Canada MBV 584 (с) 1984. 


Kingsley, Ray, "HOT Z-2068", SINWARE, Box 8052, Santa Fe, ММ 
87504 (c) 1984 


"Relocatable AERCO Frint Driver", AERCO, Box 180972, Austin, ТХ 
78760 (c) 1984 


Smith, Joe C. Jr., Editor, "200 Computer Frograms in Basic for 
the T/S 1000, ZX81, T/S 2068 (c) 1985 (No address given.) 
"Terrain" by Smith, Blanchard D., Alexandria, Уа. 


"Zeus 280 Assembler", Softsync, 14 E. 13th ST.. New York, NY 
10016 (c) 1985 


Webb, David, "Advanced Machine Code Frograming for the 
Spectrum", Melbourne House (с) 1984 (Out of print). 


The following are copyrights of the companies listed: 
T/S 2068 Timex Compter Corporation 

MSCRIFT Micro Systems Inc. 

AERCO Acme Electric Robot Со. 


Dungeons and Dragons TSH Inc. 


